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PREFACE 



The VIC-1541 disk drive represents a very efficient external 
storage medium for the Commodore user. It is an affordable 
peripheral. In order to get the most from your 1541, you 
need the appropriate information. In months of long, 
detailed work, Lothar Englisch and Norbert Szczepanowsk i 
have discovered many secrets of the 1541. 

This book progresses from simple storage techniques, to 
direct access commands , to program chaining techniques. 
Beginners will welcome the numerous sample programs that are 
fully explained in clear text. Machine language programmers 
will particularly like the detailed documentation listing of 
the Disk Operating System (DOS). 

This book contains many useful and ready-to-run programs 
that need only be typed in. Some of these programs 
ares routines for extending BASIC, helpful routines such as 
spooling, efficient address management, a complete household 
budget planner and an easy-to-use DOS monitor to manipulate 
individual sectors. Have fun with this book and vour VIC- 
1541 disk drive. 
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Chapter Is Programming the VIC-1541 



1.1 Getting Started 

There it sits, your new Commodore VIC-1541 disk drive. It's 
fast and efficient but also intimidating. But have no fear. 
We will instruct you in the ways of disk programming. The 
first part of this book gives the beginner an intensive look 
at the VIC-1541. At least one example follows each command, 
thereby explaining its functions and capabilities. You will 
be surprised how easy the operation of your disk drive can 
be, when you understand the "basics". 

The beginner probably uses the disk drive mainly to store 
programs. Perhaps he has not realized that there are many 
other ways to use the disk drive. This book attempts to 
uncover these other ways. 

Experienced programmers should not ignore the first chapter. 
There may be some sections that may shed light on disk 
usage. This is especially true concerning relative files and 
data management. 



1.1.1 The Disk Operating System 

The disk drive is a rather complicated device which 
coordinates mechanical hardware, and electronic circuitry to 
allow the storage of data on the diskette. When the 
Commodore 64 or VIC-20 needs to read from or write to the 
disk drive, it sends commands to the disk drive along the 
heavy black cable that connects the drive to the computer. 
The commands sent by the Commodore 64 or VIC-20 are under- 
stood at the disk drive by a by a built in program called 
the Disk Operating System (DOS). 

The DOS is a lengthy program contained on ROM in the disk 
drive and carries out the activities of the disk drive as 
commanded by the Commodore 64 or VIC-20. The version of DOS 
contained in the VIC-1541 carries the designation CBM DOS 



The Commodore 64 and VIC-20 contain a version of BASIC 
called COMMODORE BASIC 2.0. Other versions of BASIC (e.g. 
BASIC 4.0 found of the Commodore 8032) have more advanced 
disk commands which the VIC-1541 can also understand. In 
order to use these advanced disk commands, you have to 
simulate them using BASIC 2.0. 

At the end of the chapter is a listing of the BASIC 2.0 
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commands with corresponding commands of the easier BASIC 
4.0, as found on the larger Commodore computers. 



1.1.2 The TEST/DEMO Diskette 

The VIC-1541 disk drive is packaged with a diskette called 
TEST/DEMO. Some of the programs contained on it cannot be 
used without adequate knowledge of the way the disk drive 
works. For now, lay this diskette aside. 

The TEST/DEMO diskette is described in detail later. 



1.1.3 Formatting New Diskettes 

Brand new diskettes must be prepared before using them to 
store data. Preparing them is called formatting. 

What does formatting mean? Each disk drive mechanism has its 
own special characteristics. A diskette is divided into 
tracks and information is written along each track (similar 
to the grooves of a phonographic record). The number of 
tracks per diskette is varies from one manufacturer to 
another. Each track is divided into sectors, whose number 
can also vary. 

During formatting empty sectors are written to the diskette. 
A sector is written to each track and sector location and 
each sector receives its own "address". This allows the DOS 
to identify its position on the diskette. A sector is also 
given a code so that the DOS can recognize if this diskette 
was formatted by this type of disk drive. The code for the 
VIC-1541 disk drive is 2A. The remainder of the sector 
(called a block) is used to store data and accommodates 
exactly 256 characters. 

The final purpose of formatting is to construct the 
directory for the diskette. The directory is a "table of 
contents" of the files stored on the diskette. There is also 
a special data block (called the bit availability map or 
BAM) which indicates if a given block on the diskette is 
already in use or available for use. The directory and BAM 
are kept on track 18 of the diskette. 
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1.1.4 Some Facts about a 1541 Diskette 



Diskette: 



Number of Tracks: 
Sectors per Track: 
Bytes per block: 
Total number of blocks: 
Number of free blocks 

Entries in the directory: 

Mechanism: 



35 

17 to 21 (depending on track) 

256 

683 

644 (the directory occupies 
the remainder) 
144 per diskette 



- intelligent peripheral with its own processor and control 
system 

- connection to serial bus from CBM 64 or VIC-20, device 
number 4-15 (8 standard) 



3 



Anatomy of the 1541 Disk Drive 



1.2 Storing Programs on Diskette 

The most common use of the disk drive is for storage of 
programs. Storing programs with a disk drive is considerably 
easier than with a cassette recorder. The greatest advantage 
of the disk drive is the speed of data transfer to and from 
the computer. Here's a comparison: 

Saving a 3 Kbyte program takes: 

- 75 seconds with the VIC-1530 Datasette 

- 12 seconds with the VIC-1541 disk drive 

An additional advantage is that a diskette can store more 
programs than the cassette. To load a program, you can 
consult the directory to view the selection of programs. 
Even though the cassette drive allows you to store more than 
one program on a tape, searching for that program is very 
time consuming. 

Before trying any of the following examples in this chapter, 
you should remember that the diskette must be previously 
formatted as explained in section 1.3.2 in order to be able 
to save programs onto it. 



1.2.1 SAVE - Storing BASIC Programs 

Perhaps you previously owned a datasette on which you stored 
programs. In this case the commands to save programs onto 
diskette should be familiar to you. The SAVE command for the 
disk drive is essentially the same as for the cassette 
drive. You need only tell the computer that the program is 
to be saved onto the disk drive and not on cassette. This 
is done by adding the device number (usually 8) to the 
command SAVE. Normally the drive is preset to respond to 
this device number. Now write a small BASIC program and save 
it with the command: 

SAVE"TEST",8 

type in a the NEW command so the program in the computer's 
memory is erased. In the following section you will learn 
how the program can be retrieved. 



1.2.2 LOAD - Loading BASIC Programs 

As with the SAVE command, this command is similar to the 
LOAD command for the datasette with the addition of the 
device number. Now load in the previously saved program 
with: 
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LOAD "TEST", 8 

You can check the program by using the LIST command. Any 
previous program in memory has now been replaced by the 
program "TEST". It is possible to load a program into the 
memory without replacing the previous program in memory. 
Combining two program in memory is called "merging" An 
example of merging is presented in a later section. 



1.2.3 VERIFY - Checking Stored programs 

When you have saved a program on disk with the SAVE command, 
it is often desirable to make sure that the program was 
written error-free. You can do this by using the VERIFY 
command. It has the following format: 

VERIFY"filename",8 

Earlier you saved a program with SAVE "TEST", 8. This pro- 
gram should still be in memory. Using VERIFY, the program in 
memory is checked against the program stored on diskette, if 
both programs are identical, the computer responds with OK. 

To try this out, type a few BASIC lines and then give the 
following commands: 

SAVE "TEST2",8 
VERIFY "TEST2",8 

Your computer will respond with OK if it is performing 
correctly. 



1.2.4 SAVE"6s..." - Replacing Programs 

If you try to save your small TEST program on the disk 
again, the computer will respond with a FILE EXISTS error 
and will not complete the SAVE. The operating system of the 
VIC-1541 disk drive does not allow two programs to be saved 
under the same name. This is logical because the computer 
would not be able to distinguish between two programs with 
the same name. 

However you may want to update a program on diskette that was 
previously saved. There are three ways to accomplish this: 

1. Save the program under a different name 

2. First erase the old program from the disk and save the 
new one under the old name 
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3. Use the addition @s in front of the file name in the SAVE 
command 

This is used as follows: 

SAVE : TEST", 8 

If you forget to use the characters @s in front of the 
filename, and try to save a program whose name is already 
contained on the diskette, you get the PILE EXISTS error. 

If you are replacing a program on a diskette then the DOS 
carries this out as follows: 

1. A free block is designated as the first block of the 
program and its location is stored in the directory entry 
of the old copy. 

2. The new copy of the program is stored in a free area of 
the diskette. 

3. All of the blocks of the old copy are marked as free. 



1.2.5 Loading Machine Language Programs 

Machine language programs are handled a little differently 
from BASIC programs. A machine language program is trans- 
ferred to the computer by using a secondary address of 1. 
When secondary address 1 is used, the program is loaded 
"absolutely", that is, loaded into memory beginning at the 
address specified in the first two bytes of the disk file. 
An example: 

LOAD "MACHPGRM",8,1 

loads the machine language program at an absolute address. 

For example, the program may be set up to load at the 
decimal address 49152, and is started by the command : SYS 
49152. Should you load a machine language program without 
the secondary address, you will most likely see the message 
"SYNTAX EPROP IN ...." if you type PUN. 

Likewise, trying to LIST the machine language program will 
display nonsense. Unfortunately, machine language programs 
are not differentiated from BASIC programs in the directory. 
Both have the file type PPG. 

Usually, if typing RUN results in SYNTAX ERROR IN you 
know that the program is not written in BASIC and should be 
treated as a machine language program. In this case it must 
be loaded with the command LOAD "program*, 8,1. It cannot be 
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started with RUN however! You must first find the execution 
address of this program. 

In a later section is a program that lists all the file 
parameters of a program. One of the parameters is a load 
address. This load address is usually the initial execution 
address of the program and can be called with the command 
SYS load address. You can find the load address of a program 
with the following program: 

10 OPEN l,8,2,"programname,S,R" 

20 GET#1,X$:IF X$="" THEN X$=CHR$(0) 

30 LB=ASC(X$) 

40 GET#1,X$:IF X$="" THEN X$=CHR$(0) 

50 HB=ASC(X$) 

60 CLOSE 1 

70 AD=HB*256+LB 

80 PRINT" LOAD ADDRESS :"; AD 

The program shows the load address of "programname". Here 
the program file is opened as a sequential data file. The 
starting address is stored as the first two bytes of the 
file and read using the GET command and appropriately con- 
structed. The first byte is the low byte and the second byte 
the high byte of the two-byte address. If the function of 
this program is unclear, handling sequential files clarified 
in the next sections. 



1.2.6 Storing Machine Language Programs 

Machine language programs are usually written with an assem- 
bler or a machine language monitor and saved using this 
program. Machine language programs can also be written from 
BASIC with the individual bytes of the program written in 
decimal values in DATA statements. A machine language pro- 
gram written in BASIC with the help of DATA statements 
follows: 



10 SA=starting address 

20 EA=ending address 

30 FOR I=SA TO EA 

40 READ X 

50 POKE I,PEEK(X) 

60 NEXT I 

80 DATA 

90 DATA 



In this example, the decimal value of the starting address 
is placed in line 10 and the ending address in line 20. The 
decimal values of the individual bytes of the machine 
language program are typed into the DATA statements of the 
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program, separated by commas. 

Naturally, you can save any machine language program that 
you find in this book in the form of a BASIC program. This 
is, however, a tedious and complicated process. A more 
elegant and time-saving method is to store the machine 
language program in true form. This way, you can immediately 
execute the program after LOADing without requiring any 
complicated conversion. 

The following program will save such a program that is 
already in memory: 

10 SA=starting address 

20 EA=ending address 

30 OPEN l,8,l,"programname" 

40 HB=INT(SA/256) :LB=SA-HB*256 

50 PRINT* 1, CHR$( LB ) ;CHR$(HB) ; 

60 FOR I=SA TO EA 

70 PRINT#1,CHR$(PEEK(I) ) ; 

80 NEXT I 

90 CLOSE 1 

This routine assumes that the machine language program is 
already in the memory of the computer. If a program is 
already encoded into DATA statements, the following routine 
can be used to produced a pure machine language program: 

10 SA=starting address 

20 EA=ending address 

30 OPEN l,8,l,"programname" 

40 HB=INT(SA/256) :LB=SA-HB*256 

50 PRINT* 1, CHR$( LB ) ;CHR$(HB) ; 

60 FOR I=SA TO EA 

70 READ X 

80 PRINT#1,CHR$(X) ; 
90 NEXT I 
100 CLOSE 1 

110 DATA 

120 DATA 

Here the addresses and DATA statements are filled in also. 
The above program writes a machine language program to 
diskette which can later be loaded with the command LOAD 
"programname",8,l. Then the program can be executed with 
the command: SYS (starting address). Machine language pro- 
grams can also be loaded and executed from a BASIC program. 
Such a program might have this form: 

10 IF A=0 THEN A=l : LOAD"programname" ,8 , 1 
20 SYS (starting address) 

The IF command in line 10 is puzzling at first. It must be 
present because after performing a LOAD from within a pro- 
gram, the BASIC interpreter begins executing again at the 
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first line of the new BASIC program. Because the machine 
language program doesn't usually overlay the BASIC program 
in memory, the original BASIC program remains intact and is 
therefore is re-executed. If you use the routine: 

10 LOAD"programname" ,8 ,1 
20 SYS (starting address) 

the program continues to LOAD "programname" again, and the 
SYS command is never executed. If the variable A is present, 
the program branches to line 20 at the end of the first 
command on line 10. This loader can be placed on the 
diskette together with the machine language program. To 
execute the machine language program, you need only give the 
commands: 

LOAD" loader", 8 

RUN 

This has the advantage that the starting address of the 
machine language program need not be known, because it is 
included in the SYS of the loader. 
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1.3 Disk System Commands 

As already mentioned, the VIC-1541 disk drive is similar to 
the the earlier, larger disk drives of the Commodore family 
- the CBM 4040, 8050, 8250. They are all intelligent peri- 
pheral device with their own processor and control system. 
The Disk Operating System (DOS) occupies no space in the 
memory of the Commodore 64 or VIC-20 and yet offers a flex- 
ible set of efficient commands. These commands effectively 
expand the builtin commands of your Commodore computer. 

Because the disk drive is an intelligent peripheral, the 
commands of the DOS can be executed independently of the 
computer. But because the commands are not found in the 
version of BASIC supplied in the Commodore 64 or VIC-20, 
you will have to communicate to the disk using a special 
method. When the commands are sent to the disk drive, the 
DOS interprets and carries out the desired task. 



1.3.1 Transmitting commands to the Disk Drive 

Commands intended for the disk drive, are sent over a 
channel. You can communicate with the disk drive over any of 
the 15 available channels. But channel 15 is reserved as the 
command channel. Data transfer over this channel takes place 
as follows: 

- opening the channel' (OPEN) 

- data transfer (PRINT) 

- close the channel (CLOSE) 

In the OPEN command you specify a logical file number 
(arbitrary between 1 and 127), a device number of the disk 
drive (usually 8) and the secondary address (15 for the 
command channel). You can also send a command to the device 
as illustrated below: 

OPEN If n, 8, 15, "command" 

or 

OPEN lfn, 8, 15:PRINT#lfn, "command" 

The number 8 is the device number of the disk drive and the 
number 15 is the secondary address or channel number. The 
parameter lfn is the logical file number which is used in 
subsequent commands (PRINTS , INPUT*, GET! ) . It can be a 
number in the range 1-127. The "command" can either follow 
the OPEN statement directly, or can be transferred with a 
PRINTS command following the opening. Any number of system 
commands can be transmitted until the channel is closed, but 
must be referenced by the logical file number used in the 
OPEN command. 
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1.3.2 NEW - Formatting Diskettes 

The command to format a diskette is called NEW and can, as 
every other command, be abbreviated to its first letter (N). 
As already mentioned, the command can follow an OPEN command 
or be given in a PRINT* command. The NEW command has the 
following format: 

NEW:diskname, id 

The parameter diskname may contain up to 16 characters and 
is stored in the header of the diskette directory. The 
parameter id (identification) consists of two arbitrary 
characters, so that the DOS can recognize if a different 
diskette has been used. Since you can freely choose the id, 
this allows you to uniquely identify each diskette. Here is 
an example for formatting a disk: 

OPEN 1,8,15, "NEW:ABCDISK,KL" 

The command can be abbreviated to: 

OPEN l,8,15,"NsABCDISK,KL" 

You need only use the command once - when you first use a 
brand new diskette. Formatting takes about 80 seconds. For- 
matting uses the processor of the 1541 drive while the 
processor of the computer is not needed; you can continue to 
work with the computer. 

To use the command with a PRINT* statement, the following 
commands must be given: 

OPEN 1,8,15 to open the channel 

PRINT#1,"N:ABCDISK,KL" 

The number 1 in the PRINT* command is the logical file 
number corresponding to the OPEN command. Other commands may 
also be transmitted over this channel after the PRINT* 
statement. When no more commands are to be transmitted, the 
channel must be closed. This is accomplished through the use 
of the CLOSE statement. Give the following command after 
formatting: 

CLOSE 1 

Now the command channel is closed. The number 1 is again the 
logical file number of the corresponding OPEN command. 
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1.3.3 Reading the Error Channel 

When the Commodore 64 or VIC-20 is incorrectly programmed, 
it responds with an error message. Disk commands are carried 
out and verified by the processor of the disk drive. 
Therefore the computer cannot directly display error 
messages that are detected by the disk drive. Errors are 
indicated by the flashing red LED on the disk drive. In 
order to determine which error has occurred, the computer 
must read the error from channel 15. Therefore channel 15 
roust be OPENed, if this has not already been done. Then the 
error can be read with the INPUT* command. An error is sent 
back to the computer in four fields - 

Field Is Error number 

Field 2s Description of the error (string) 

Field 3s Track number 

Field 4s Sector number 

The track and sector information may indicate where the 
error occurred (if these fields are relevant to the 
command). These four fields of the error message must be 
read into four variables. You can use an INPUT* statement 
followed by four variables. An example of reading the error 
channel s 

OPEN 1,8,15 (if not already done) 

INPUT#1,EN,DE$,TR,SE 

CLOSE 1 

The INPUT* statement must be entered from within a program. 
It is not proper to issue an INPUT* statement from command 
mode . 

10 OPEN 1,8,15 

20 INPUT#1,EN,DE$,TR,SE 

30 PPINT EN ; DE$ :TR; SE (to display the error) 

40 CLOSE 1 

To understand the operation of this program, first create 
the following errors 

OPEN 1,8, 15, "NEW ABCDISK,T1" 
CLOSE 1 

When you have given these commands, the red LED on the disk 
drive begins to blink. Did you spot the error? A colon is 
missing from the command NEW. Now type the program to read 
the error channel and type RUN. The error will appear on the 
screens 

34 SYNTAX ERROR 

The 34 is the number of the error, which is explained later. 
The track and sector fields are because this information 
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is not relevant to this error. 

If you read the error channel when an error had not 
occurred, the message: 

OK 

is returned, in any case, if the red LED on the drive 
blinks, check the syntax of the command, since most errors 
can be easily recognized. Otherwise, you can simply read the 
error channel to find the error which the DOS has detected. 
A detailed description of the error message and their causes 
follows in section 1.6. 



1.3.4 LOAD'S", 8 - Loading the Directory 

The directory is a "table of contents" of the diskette. All 
the files on the diskette are cataloged here. Be sure to 
note that loading the directory has a disadvantage: any 
program previously in memory is overlayed by the directory 
information. The directory is loaded by typing: 

LOAD "S",8 

and can be viewed with the LIST command. Try LOADing the 
directory of the TEST/DEMO diskette that accompanies your 
disk drive. Insert this diskette into the disk drive and 
enter: LOAD "$",8 to load the directory. Then display the 
directory by using the LIST command. What follows should be 
shown on the screen 

zx 2a 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 

A lot of information is kept in the directory. Let's look at 
the first line, the header of the directory. The number in 
this line means that the directory is of the diskette in 
drive 0. other disk drives such as the 4040, contain two 
disk drives - drive or drive 1. on the 1541 the drive 






"1541test/demo 


13 


"how to use" 


5 


"how part two" 


4 


"vic-20 wedge" 


1 


"c-64 wedge" 


4 


"dos 5.1" 


11 


"copy/all" 


4 


"disk addr change" 


4 


"dir" 


6 


"view bam" 


4 


"check disk" 


14 


"display t&s" 


9 


"performance test" 


5 


"sequential file" 


13 


"random file" 
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number is always 0. Next follows the name and ID of the 
diskette as set up by formatting. The characters 2A sym- 
bolize the disk format. If this format is not 2A then this 
diskette was not formatted with a 1541 drive. 

Next are the individual file names, their lengths in blocks 
in the first column and the file type in the last column. 
This diskette contains three different file types: 

PRG These are PPOGRAM files, written in either 
BASIC or machine language 

SEp Sequential data files, explained later 

REL This is another form of data storage, also 
explained later 

The length of the files is given in blocks. Each block 
contains 256 bytes. You can find the approximate size a 
program, by subtracting 2 bytes from each 256-byte block 
that the file occupies. Finally at the end of the directory 
is the number of free blocks remaining on the disk. When you 
add the lengths of the files and the number of free blocks, 
the result is the total number of available blocks on a 
diskette (664). 

If you own a printer, this directory can be printed as you 
would print a program listing. Use the following commands: 

OPEN 1,4 open the printer 

CMD 1 the printer is now linked to the 

screen 

LIST the directory will be printed 

PRINT* 1 send a RETURN to the printer 

CLOSE 1 close the printer again 

It is assumed that the directory is already loaded with the 
LOAD'S", 8 command before these commands are executed. By 
inserting a wildcard when loading the directory, you can 
cause only part of the directory to be loaded, such as only 
the programs. This is explained in section 1.3.10 



1.3.5 SCRATCH - Deleting Files 

Sometimes an unneeded file must be removed from the 
diskette. The SCRATCH command is provided for doing so. 
Before using this command, you must be sure that the name 
given in the SCRATCH command corresponds with the file to be 
deleted. An unintentionally deleted file can ruin many hours 
or even days of work, so be careful before using the SCRATCH 
command . 
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To delete a file, the following format should be used: 

PRI NT# 1 f n , "SCRATCH : filenaroel, f ilename2,..." 

More than one file can be deleted by using a single command. 
But remember that only 40 characters at a time can be sent 
over the transmission channel to the disk drive. 

For example, to erase a file with the name TEST, the 
following commands are used: 

OPEN 1,8,15,"S:TEST* 
CLOSE 1 

If channel 15 is already open, only the PRINT* command is 
required: 

PRINT#1 , "S 8 TEST" 

It is possible to delete the entire contents of a diskette. 
This is discussed in section 1.3.10, the wildcard character 
( * \ • 



PRINT#1,"S:*" 

But be very carefull Make sure that you do not need any of 
the files on the diskette before using this command. After 
completing the operation the error channel transfers the 
message: 

01 PILES SCRATCHED nn 00 

where nn is the number of deleted files. This message can be 
read with the routine given in section 1.3.3. 



1.3.6 RENAME - Renaming Files 

You can also change the name of a file on the diskette. The 
command RENAME is provided for this purpose. It has tie 
following format: 

RENAME : newname=oldname 

For example, if you want to change the name of the file from 
TEST to PEST you would use the following commands: 

OPEN 1,8,15,"R:PEST=TBST" 
CLOSE 1 

or 
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OPEN 1,8,15 

PRINT#1 , "R:PEST=TEST" 

CLOSE 1 

Note that you cannot rename a file until it is CLOSEd. 



1.3.7 COPY - Copying Files 

Using this command, a file can by copied on a diskette. 
Several different sequential files can be used to create a 
new file. If, for example, you have a data record for each 
month of your household expenses and they have the names 
EXP. 01, EXP. 02, etc. you can combine them into quarters 
(EXP.01 for example) with this command. The COPY command has 
the format: 

COPYsnewf ile=oldf ilel ,oldf ile2, . . . 

So, the named data records can be combined as follows: 

OPEN 1 ,8,15,"CsEXP.Ol=EXP.01 ,EXP.02,EXP.03" 
CLOSE 1 

This method of combining data records cannot be used for 
programs. Only a single program can be copied on the 
diskette. Also the name of the new file must not already 
exist on the diskette. 

The COPY command is seldom used. This is because copying 
files onto the same diskette usually makes no sense. The 
only sensible use of the command is to combine several 
sequential or user files into a single file. 

Copying files from one diskette to another diskette is much 
more sensible. This is indispensible for data security. If 
you own two disk drives, you can assign the device number 9 
to one of them and use the program COPY/ALL to copy files 
from one to the other. This program is found on the 
TEST/DEMO diskette. 

We have also thought of you who have only one disk drive. A 
utility program is included in section 4.1 to allow you to 
copy individual files and even the entire diskette. 



1.3.8 INITIALIZE - Initializing the Diskette 

The DOS requires a BAM (Block Allocation Map) to be present 
on each disk. The BAM is a layout of the usage of the 
blocks on each diskette. It marks each block on the diskette 
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as free for use or allocated (already in use). If you change 
diskettes in the drive and the new diskette has the same id 
as the old diskette, the DOS will not recognize the fact 
that you have changed diskettes. The BAM of the new diskette 
will be different, but the DOS will still be working with 
the old BAM. 

Therefore, each diskette should be given a unique id when 
you format it. It is a good practice to give each diskette a 
different id. You can force the disk drive to read the BAM 
of a new diskette by issuing the INITIALIZE command. This 
command has the following format: 

PRINT#lfn, "INITIALIZE" 

or shortened to 

PRINT#lfn,"I" 

Example: 

OPEN 1,8,15,"I" 
CLOSE 1 

If you change diskettes and also change data records, then 
we strongly recommend that you use the INITIALI2E command 
after changing the diskettes, to be safe. 



1.3.9 VALIDATE - 'Cleaning Op" the Diskette 

The command VALIDATE frees all allocated blocks that are not 
assigned to normally CLOSEd files. For example, if you OPIN 
a file, and transfer data to that file, but forget to CLOSE 
the file, the VALIDATE command can be used to free the data 
blocks that were written to. If you use the direct access 
commands, be sure to allocate them (using the BLOCK-ALLOCATE 
command) or the VALIDATE command will free them again. 

The command has an additional function: if a file is deleted 
using the SCRATCH command, the file type in the first byte 
of the file entry is set to 0. It no longer appears in the 
directory. If you now change this byte back to its old file 
type with the DOS monitor (described later) or other direct 
access commands, VALIDATE will restore the file, if it has 
not been overwritten, it will be the same as before the 
SCRATCH command. The command has the following format: 

PPINT#lfn, "VALIDATE" 

or the shorter form 

PRINT#lfn,"V" 
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An example: 

OPEN 1,8,15,"V" 
CLOSE 1 

If you have a diskette such that the sum of the file lengths 
plus the number of free blocks does not equal the total 
number available (664), use the VALIDATE command to restore 
it. 

Another example: If you want to store a program or data 
record that uses more than the number of free blocks, the 
DOS will give the error DISK POLL. If the disk had shown 
some blocks free before, the number is now zero. The 
VALIDATE command will restore the original free blocks. 



1.3.10 ?*- The Wildcards 

There are two wildcard characters - the asterisk (*) and the 
characters of the first file on the disk that begins with 
the characters which precede the asterisk. An example: 

LOAD"TEST*",8 

This command loads the first program that begins with the 
first four letters "TEST". The command: 

LOAD"** ,8 

loads the first program on the diskette because there are no 
characters in front of the asterisk. The asterisk in the 
SCRATCH command has a different effect. If used in the 
SCRATCH command, not only the first file will be deleted, 
but all files. For instance, the command: 

OPEN 1,8,15,"S:TEST*° 

CLOSE 1 

erases all files beginning with the the letters "TEST". This 
must be taken into account! Loading the directory with an 
asterisk can also select certain files. An example: 

LOAD"SA*" r 8 

loads only the directory of the files that begin with the 
letter "A". 

The DOS offers an additional use of the asterisk that has 
not been mentioned yet. It can also select file types if the 
asterisk is followed by the first letter of the desired file 
type. Here is a summary: 
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*=S selects only sequential files 

*=P selects program files 

*=R selects relative files 

*=U selects user-files 



For example, the command: 
LOAD "$*=P",8 

causes only the directory entries of programs to be loaded 
and shown when you type LIST. This can also be used with the 
SCRATCH command to delete all sequential files, for 
instance. Here is the command: 

OPEN 1,8,15,"S:*=S" 

CLOSE 1 

With the question mark, certain characters of a file name 
can be declared "not relevant". To illustrate the function 
of the question mark, here are two examples of shortened 
file names and their effects: 

A????? - refers to a six-letter filename of which 

first character is A 
????TEST - refers to an eight-character filename, the 

last four letters of which are TEST 

A combination of asterisks and question marks is allowed. 
You should notice, however, that an asterisk followed by 
question marks has no meaning. Two examples of combinations 
of asterisks and question marks: 

????.* - refers to all file names that have four 

characters before a period 
TEST.??* - refers to all file names having at least 7 

characters, of which the first five are 

TEST. 

TEST-??01*=S - refers to all sequential files whose names 
have at least nine characters, the first 
five being TEST- and the eighth and ninth 
being 01 



19 



Anatomy of the 1541 Disk Drive 



1.4 Sequential Data Storage 

A disk drive need not be used exclusively for storing pro- 
grams. If you have written a program that manages a large 
quantity of data, you need a fast way of organizing it. 
Sequential data storage is not the fastest, but it is the 
easiest method of managing data. This method is comparable 
to sequential storage on a cassette, which can be maintained 
in a program as such: 

1. Load the program 

2. Read the entire data file into the memory of the computer 

3. Work with the data in memory (change, delete, combine) 

4. Write the new file on an external medium (cassette, 
diskette) 

5. Exit the program 

The maximum number of data items that the program can handle 
depends on the size of the computer's memory, because a 
single data item cannot be changed or erased directly on the 
cassette or diskette. To that end, the entire set of data 
items must be read in, changed, and then rewritten again. 
Reading and rewriting the data occurs remarkably faster on a 
disk drive than on cassette. 

It is worth mentioning that programs which work with 
sequential data on cassettes can be easily modified to work 
with disk. Only the corresponding OPEN commands need be 
changed. 



1.4.1 The Principle 

A sequential data file consists of several data records that 
are further divided into fields. The following is a name and 
address file and illustrates the principle of sequential 
data storage. Individual names and addresses comprise the 
data records of this file. A record consists of several 
fields (last name, first name, etc.). The structure of the 
file looks something like this: 



Field 1 : Field 2 : Field 3 : Field 1 : Field 2 : Field 3 : 
Data record 1 : Data record 2 



FILE 
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Only two records are shown above. The data records of a file 
are stored one after another (sequentially) as are the the 
fields within each record. The fields and records may be of 
any length. For example, field 1 of record 1 may be longer 
than field 1 of record 2. This is possible because the 
,lt „„ are se P arated from each other by a special character 
(the RETURN character), which is generated by the PRINT* 
statement, when read back into the computer by the INPUTS 
statement, the RETURN character is recognized as a field 
separator. 

Each field is associated with a variable when written with a 
PRINTS statement or read with an INPUT* statement. 

How does the computer know, when reading the data, where 
each field ends? Each field ends with a RETURN character. 
The RETURN character has the decimal ASCII value 13 An 
example of a telephone directory file illustrates this. Our 
telephone directory file has three fields: 

FIELD 1 : LAST NAME 

FIELD 2 : FIRST NAME 

FIELD 3 : TELEPHONE EXTENSION 

Let's look at a section of this previously written file (the 
character + symbolizes a RETURN) : 

Position: 1111HH11222222222233333333334444444 
1234567890123456789012345678901234567890123456 

Data: SMITH+JOHN+236+LONG+TIM+121+HARRIS+SAM+654+7" 



You can see that the fields are of different lengths and are 
all separated by a RETURN character. This RETURN character 
is automatically written after the data field by a print* 
statement, provided the PRINT* statement is not followed by 
a semicolon (which suppresses the RETURN character). 

These data items are assigned to the variables with an 
INPUT* statement. After that, another INPUT* must follow in 
order to read the next field, and so on. The following 
sections explain the fundamentals of writing programs using 
sequential data storage. 



1.4.2 Opening a Sequential Data File 

To create a sequential data file, you must first OPEN the 
file. When opening a file to be written to, the following is 
carried out: 

1. The diskette is checked to-see if an existing file has 



21 



Anatomy of the 1541 Disk Drive 



the same name. If so, the error message FILE EXISTS is 
given by the DOS. 

2. The file entry in the directory is written. In the file 
type it is noted that this file is not yet CLOSEd. This 
appears in a directory listing with an asterisk which 
preceeds the file type. 

3. A free block is found, into which the first data items 
are written. The address (track and sector) of this free 
block is stored in the file entry of the directory. 

4. The number of blocks in the file is set to 0, because no 
blocks of the file have been written yet. 

The OPEN command specifies for what purpose (mode) the file 
is to be used (reading or writing). The format of the OPEN 
command looks like this: 

OPEN lfn,8,sa,"fi lename , f i le type ,mode " 

When the logical file number is between 1 and 127, a PRINT* 
statement sends a RETURN character to the file after each 
variable. If the logical file number is greater than 127 
(128-255), the PRINT* statement sends an additional line- 
feed after each RETURN. This is necessary for printers, for 
example, that do not provide an automatic line-feed after a 
RETURN character. 

The secondary address (sa) can be a value between 2 and 14. 
The secondary address indicates the channel over which the 
computer is to transfer data to and from the disk drive. 
Secondary addresses and 1 are reserved by the DOS for 
saving and loading programs. Secondary address 15 is desig- 
nated as the command and error channel. Should several files 
be open at once, they must all use different secondary 
addresses, as only one file can use a channel. If, however, 
a file is opened with the secondary address of a previously 
opened file, the previous file is closed. 

A maximum of 3 channels can be opened with the VIC-1541 at a 
time. When utilizing relative data files, the DOS requires 2 
channels per file. Therefore, the following maximum 
combinations are possible: 

- 1 relative and 1 sequential file 
or - 3 sequential files 

When specifying the filename to be written to (in the OPEN 
command), you must be sure that the file name does not 
already exist on the diskette. If a file that already exists 
is to be to opened for writing, an at sign followed by a 
colon (@:) must be placed in front of the file name (same as 
in the SAVE command). For example: 
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OPEN 1,8,2,"§:ADDRESSES,S,W" 

The file type must be given when the file is opened. The 
file type may be shortened to one of following: 

S - sequential file 

U - user file 

P - program 

R - relative file 

User files are sequential files that are listed in the 
directory with the file type USR. It is not a data file in 
the true sense. This file type is usually used when output 
that normally goes to the screen (BASIC listing, directory) 
is sent to the disk. In section 1.4.6 you find a description 
of this technique. 

The last parameter (mode) establishes how the channel will 
used. There are four possibilities: 

W - Write a file (WRITE - section 1.4.3) 
R - Read a file (READ - section 1.4.4) 
A - Add to a sequential file 

(APPEND - section 1.4.4) 
M - read a file that has not been closed 

("discovered" by us in the DOS listing and 
explained in section 1.4.5) 

Now open a sequential file with the name SBOU.TEST for 
writing : 

OPEN 1,8,2,'SE0U.TEST,S,W" 

If you now load the directory with LOAD"$",8 and then LIST 
it, you see this file listed with an asterisk before the 
file type: 

SEOU.TEST *SEQ 

But you are no longer allowed to close this file! After a 
file is OPENed and data written to it, it must be closed 
before the directory is loaded! 

While a file is open, the command/error channel 15 may be 
opened, but when channel 15 is closed, all other channels 
are closed as well. You must take note of this. 

Now some examples of the OPEN command: 



OPEN l,8,2,"SEOU.TEST,S,R" 

OPEN 2,8,3,"SE0U.TEST,U,W" 
OPEN 3,8,4,"TEST,P,R" 



- open a sequential file for 
reading 

- open a user file for writing 

- open a program file for 
reading 
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OPEN 4,8,5,"SE0U.TEST,S,A" 
OPEN 5,8,6,"CSTMRS.1983,S,M" 



open a sequential file for 
appending data 
open the unclosed customer 
file for reading 



1.4.3 Transferring Data Between Disk and Computer 

After opening a file for writing, you transfer data to be 
stored to the diskette with the PPINT# statement. This 
statement transmits an additional RETURN that is required 
for separating data. In the following example, a file is 
OPENed, data written to it, and CLOSEd again. PRINT# can 
also be used as a direct command, that is, outside of the 
program, so the following commands can be typed one after 
the other and executed. Now open a file with the name 
"TEST" : 

OPEN 1,8,2,"TEST,S,W" 

You should notice that the red LED on the disk drive was 
lit. It signals the fact that a file was OPENed. You can now 
write to the file named TEST. Here is how we would write a 
name and address record consisting of 4 fields: 

PR I NT* 1," SAM" 

PRINTS 1 , "HARRIS" 

PRINT* 1," 2001 MAIN STREET" 

PRINT* 1 , "ANYTOWN" 

Now these data items have been written to the file so we can 
close the file with CLOSE 1. The red LED should go out. In 
order to read this data again, you must open the file in the 
read mode (R). Because the INPUT# statement cannot be used 
directly, a small program must be written: 

10 OPEN 1,8,2,"TEST,S,R" 

20 INPUT* 1,FN$ 

30 INPUT#1,LN$ 

40 INPUTS 1 , ST$ 

50 INPUT* 1,CT$ 

60 CLOSE 1 

70 PRINT" FIRST NAME: " ( FN$ 
80 PRINT"LAST NAME: " ; LN$ 
90 PRINT" STREET: ";ST$ 
100 PRINT"CITY: ";CT$ 

The program is simple to explain: 

Line 10 The file TEST is opened for reading 
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Lines 20-50 The data are read in the same order as they 
were written. Variables are used so that the 
data can be printed later. 

Line 60 The file is closed. 

Lines 70-100 The data are printed out on the screen. 

When you enter this program and type RON, the data will 
appear as written earlier, on the screen: 

FIRST NAME: SAM 

LAST NAME: HARRIS 

STREET: 2001 MAIN STREET 

CITY: ANYTOWN 

Four INP0T# statements were used to read the data because 
the name and address record is composed of four fields. But 
when a record is written that has, say, 20 fields, it is 
very time-consuming to type out 20 INPUT* statements. A loop 
can make this much simpler. This is obvious in this example: 

10 OPEN l,8,2,"TEST,S,R n 
20 FOR 1=1 TO 4 
30 INP0T#1,D$(I) 
40 NEXT I 
50 CLOSE 1 

60 PRINT" FIRST NAME: " ; D$ ( 1 ) 

70 PRINT-LAST NAME: ";D$(2) 

80 PRINT" STREET: ";D$(3) 

90 PRINT"CITY: ";D$(4) 

Here, instead of four separate string variables, an array 
with index 1-4 is used. It should be noted that in BASIC 
2.0, if an index higher than 10 is used, the array roust be 
dimensioned with a DIM statement. Should we want to read in 
20 fields, the statement DIM D$(20) must be given before any 
are read. 

There are still more ways of shortening input and output of 
data. With the INPUT statement for keyboard input, several 
variables can be given in one line, separated by commas. For 
example: 

INPUT FN$,LN$,TE 

With this statement, three variables must be entered, such 
as: 

NICHOLAS, MULLER, 7465 
The read data can be printed on the screen with: 
PRINT FN$,LN$,TE 
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In this manner, sequential data can be written and later 
read back in again. The only difference is that the string 
variables containing the data to be written must be 
separated by commas enclosed in quotes. For example, if you 
wish to write the previous variables to a file, the print# 
statement command must changed as follows: 

PRINT* 1 , FN$ " , * LN$ " , "TE 

Numeric variables need only be separated with a comma from 
the other variables. To read the data, use the command: 

INPUT#1 ,FV$ ,LN$ ,TE 

Because the maximum number of characters read by an INPUT* 
statement may not exceed 88, this method of reading is only 
marginally useful. If a field in a record is more than 88 
characters long, a different statement must be used. This is 
the GET* statement, which reads each individual character, 
one at a time. Suppose you want to read a record of which a 
field is 100 characters long. This record can be placed in a 
string variable with the following routine: 

10 OPEN 1,8, 

20 D$="" 

30 FOR 1=1 TO 100 

40 GET#1,X$ 

50 D$=D$+X$ 

60 NEXT I 

70 GET#1,X$ 

80 CLOSE 1 

At the end of this program, the string variable D$ will 
contain the 100 characters of the data field. After opening 
a sequential data file, the DOS establ ishes' a pointer that 
always points to next character to be read. We assume that 
the data was written with a PRINT* statement without a 
trailing semicolon, so that a RETURN was written at the end 
of the data item. After reading the first 100 characters, 
the pointer points to this RETURN. The next GET* in line 70 
is necessary to read the RETURN found at the end of the 
field. Then the next GET* statement can read the next field 
and not the RETURN. 

In the above example, we used data records with a constant 
length of 100 characters. According to the rules of sequen- 
tial access, the length of data records need not be con- 
stant. Since the INPUT* statement can only read a maximum of 
88 characters, we will use the GET* statement to recognize 
the RETURN as the end of a field. Such a routine looks like 
this : 

10 OPEN 1,8, 

20 S$="" 
30 GET#1,X$ 

40 IF X$=CHRS(13) THEN 80 
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50 S$=S$+X$ 

60 IF ST<>64 THEN 30 

70 CLOSE 1 : END 

80 PRINT S$ 

90 GOTO 20 

Here a file with variable record length is read and printed 
on the screen. Naturally, you can use the data in other ways 
instead of printing it on the screen. 

To avoid the problem of reading data records of more than 88 
characters, divide the record into several parts, which you 
can combine after reading them. 



1.4.4 Adding Data to Sequential Files 

If you want to add data to a sequential file, you have to 
read the entire file into memory, add the data, and write 
the new file back to the diskette again. This is a very 
time-consuming process. For this reason, the DOS offers an 
easier alternative to add to a sequential data file without 
reading the entire file. This is made possible through the 
OPEN mode A (Append), if you have a sequential data file, as 
in the previous section, you can add data to it by selecting 
the A mode in the OPEN command. An example follows. 

Give the following commands: 

OPEN 1,8,2,"TEST2,S,W" 
PRINT! 1 , "1 . DATA RECORD" 
CLOSE 1 

Now you have a sequential data file containing one data 
record. This file can be expanded with two more records as 
follows : 

OPEN 1,8,2,"TEST2,S,A" 
PRINT#1,"2. DATA RECORD" 
PRINT#1,"3. DATA RECORD" 
CLOSE 1 

Now the file TEST2 has three data records, you can check 
this with the following program: 

100 OPEN 1,8,2,"TEST2,S,R" 

110 FOR 1=1 TO 3 

120 INPUT#1,DR$ 

130 PRINT DR$ 

140 NEXT I 

150 CLOSE 1 

After the program starts, the data records is read and 
printed on the screen. 
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You can see that the append A mode makes it quick and easy 
to expand a sequential data files. 



1.4.5 Closing a Sequential Pile 

OPENed data files can be closed with the CLOSE command. This 
command has the format: 

CLOSE lfn 

The parameter lfn is the logical file number of the file 
that was used in the OPEN statement. Should several files 
need to be closed a CLOSE statement roust be given for each 
one. When the last file is closed, the red LED on the drive 
goes out. 

As you already know, data is sent to the disk drive over a 
channel. This channel uses storage inside the disk (called a 
buffer) in which the data transmitted by the computer is 
stored. When this buffer is full, its contents are written 
to the diskette. 

When the file is closed, any data still in the buffer is 
written to the diskette. An unclosed file is incomplete and 
is also not recognized by the DOS as a properly closed file. 
The DOS allows no read access in the R (Read) mode and 
responds WRITE FILE OPEN when trying to read an unclosed 
file. 

This could be a problem if the DOS did not allow read access 
to a file. For this reason, the DOS offers the M mode. A 
file that is marked as an improperly closed file can be read 
in this mode. It is logical to then write these records to a 
second file which can then be properly closed. In this way 
one can "rescue" a file. 

The following program will transfer an improperly closed 
file (original file) to a correctly closed file (destination 
file): 

100 INPUT"ORIGINAL FILE NAHE"jS$ 

110 INPUT" DESTINATION FILE NAME" ; D$ 

120 OPEN 1,8,2,S$+",S,M" 

130 OPEN 2,8,3,D$+",S,W" 

140 INPUT#1,X$ 

150 PRINT#2,X$ 

160 IF ST<>64 THEN 140 

170 CLOSE 1: CLOSE 2 

180 OPEN 1,8,15,"S:"+S$ 

190 CLOSE 1 

At the completion of the program, the unneeded original file 
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is deleted (scratched). 



1.4.6 Redirecting the Screen Output 

Any output appearing on the video screen (print, LIST, etc) 
can be redirected to a sequential data file. This is accon- 
plished through the CMD command, which has the followino. 
format: a 

CMD If n 

For this to occur, a file of type USR must be opened. To 
transfer a BASIC program listing, for instance, as a 
sequential fxle on diskette, use the following commands: 

OPEN 1,8, 2, "TEST. LIST, U,W" 
CMD 1 
LIST 
CLOSE 1 

The command CLOSE 1 causes further output to be sent to the 
screen. 

Storing a program as a sequential file on disk is very 
useful, if, for example, you would like to read a program 
with a word processor to edit it. it is assumed that the 
word processor in this case reads data stored in ASCII code. 

This is how the listings in this book were transferred from 
a Commodore 64 to a Commodore 8032. 

in order to print this file on the screen again, you need 
the following routine: 

10 OPEN 1,8,2, "TEST. LIST, U , P." 

20 GET#1,X$ 

30 PRINT X$ 

40 IF ST<>64 THEN 20 

50 CLOSE 1 

This routine is a loop that reads every character (byte) of 
the file and displays it on the screen. The end of the file 
is signalled by the status variable which is set to 64 at 
the end. To send a sequential file to the printer, use the 
following program: 

10 OPEN 1,8, 2, "TEST. LIST, U,R" 

20 OPEN 2,4 

30 GET#1,X$ 

40 PRINT#2,X$ 

50 IF ST<>64 THEN 30 

60 CLOSE 1 
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Here it assumed that the printer is connected as device 
address 4. 



1.4.7 Sequential Files as Tables in the Computer 

Sequential data files must reside completely in the computer 
for data management. Most of the time, a two dimensional 
table can be used. This table is also called an array or 
matrix, because a data element can be addressed through the 
input of two coordinates. To this end, you use a two dimen- 
sional variable, which must be reserved with a DIM state- 
ment. The first dimension corresponds to the data record, 
the second dimension to the field inside the record. The 
following diagram shows an example of a table: 

Field 1 Field 2 Field 3 



Record 


1 


11 


D$(l,l) 


11 


D$(l,2) 


11 


D$(l,3) 11 


Record 


2 


11 


D$(2,l) 


11 


D$(2,2) 


11 


D$<1,3) 11 


Record 


3 


11 


D$(3,l) 


11 


D$(3,2) 


11 


D$(3,3) 11 


Record 


4 


11 


D$(4,l) 


1! 


D$(4,2) 


11 


D$(4,3) 11 


Record 


5 


11 


D$(5,l) 


11 


D$(5,2) 


11 


D$(5,3) 11 



Record 6 11 D$(6,l) 11 D$(6,2) 11 D$(6,3) 11 
_ 11 



This table is a file composed of six records which have 
three fields each. The variable D$ is reserved with DIM 
D$(6,3). To read a sequential file as a table, it is 
necessary to create such a file with, for example, six 
records with three fields each. For this purpose, use the 
following program: 

100 OPEN 1,8,2,"TABFILE,S,W" 
110 FOR X=l TO 6 
120 PRINT CHR$(147) 
130 PRINT" RECORD ";X 

140 PRINT" " 

150 FOR Y=l TO 3 
160 PRINT"FIELD ";Y;": 
170 INPUT X$ 
180 PRINT* 1,X$ 
190 NEXT Y 
200 NEXT X 
.210' CLOSE 1 

Two nested loops are used here, whose variables are numbered 
with the record and field. Enter six data records. When the 
program is done, these records will be contained on the 
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diskette with the filename of TABFILE. A tip: save this 
program with SAVE"TABPROG",8 so you can use it later. 

This file can now be loaded into the computer as a table. 
Two nested loops indexed for the table are necessary: 

100 OPEN 1,8, 2, "TABFILE. SEO,S,R" 

110 DIM D$(6,3) 

120 FOR X=l TO 6 

130 FOR Y=l TO 3 

140 INPOT#l,D$(X,Y) 

150 NEXT Y 

160 NEXT X 

170 CLOSE 1 

This program places data into the table. You can check this 
with a PRINT statements, to see if the data has been stored 
in the right place. Because each field can be addressed with 
indices, you can give a command like PRINT D$(l,2) to see 
the second field of record one. It is meaningful to be able 
to display the fields of a given record. Use the following 
routine for this purpose, after you have saved the previous 
program: 

100 INPUT"RECORD NUMBER: " ;X 

110 PRINT" " 

120 PRINT"FIELD 1: " ;D$(X,1) 
130 PRINT"FIELD 2: n ;D$(X,2) 
140 PRINT"FIELD 3: ";D$(X,3) 

Notice that the first index (the record number) after the 
question is used as the variable in the field output. The 
second index (field number) is then constant. 

This table can now be altered as desired. Add the following 
lines to the preceeding program: 

160 PRINT" " 

170 INPUT"FIELD TO CHANGE : " ; Y 

180 INPUT"NEW CONTENTS: ";D$(X,Y) 

190 PRINT"OK" 

200 PRINT"FURTHER CHANGES ( Y/N) ? " 
210 GET X$:IF X$="" THEN 210 
220 IF X$="Y" THEN 100 
230 IF X$="N" THEN END 
240 GOTO 210 

Here the number of the field to be changed is used as the 
second index, which is adjacent to the index of the desired 
record to input the new table element. 

This modified table must now be written to the diskette 
again. You can use the following routine. Don't forget to 
save the previous edit program first! 
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100 OPEN 1,8,2,"@:TABFILE,S,W" 

110 FOR X=l TO 6 

120 FOP Y=l TO 3 

130 PRINT#1,D$(X,Y) 

140 NEXT Y 

150 NEXT X 

160 CLOSE 1 

This routine also is relatively short because of the use of 
nested loops. The @: in line 10 is necessary in order to 
overwrite the existing file. 

Accessing data through the use of the table is very fast. 
The access time is independent of the size of the table. The 
size of the table and therefore the quantity of data is 
dependent on the memory capacity of the computer, however. 
The large storage area of the Commodore 64 is excellent for 
table management. If you write a data management program 
that occupies 8K bytes, then 30K bytes still remain for 
storing data. If you consider that storing a name and 
address record of about 80 characters, you can still store 
384 records in memory! And this with an access time that 
cannot be surpassed by refined data management techniques 
(indexed sequential, relative). But with larger quantities 
of data, sequential storage is no longer feasible. 



1.4.8 Searching Tables 

As mentioned in the table processing section, each data 
record of a table can be indexed. Because the table is two 
dimensional, the first index selects the data record. If a 
record of the table is to be changed or accessed, the 
operator must know the record number. The record number can 
be a part or customer number. There are files, however, for 
which there is no suitable method of numbering. In such 
files, the number of the record must be found through a 

search of all the records. Here is a practical example: 

First of all, create a data file with the following program. 
Names and telephone numbers are saved in the example: 

100 OPEN 1,8,2,"TELEDAT,S,W" 

110 PRINT CHR$(147) 

120 INPUT"LAST NAME :"?LN$ 

130 INPUT"FIRST NAME :";FN$ 

140 INPUT"AREA CODE :";AC$ 

150 INPUT" NUMBER :"?NU$ 

160 PRINT" INFORMATION CORRECT ( Y/N) ?" 

170 GETX$:IF X$ = "" OR X$<>"Y" AND X$<>"N" THEN 170 

180 IF X$="N" THEN 110 

190 PRINTS 1 , LN$ " , "FN$" , "AC$ " , "NU$ 
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200 PRINT "MORE INPUT ( Y/N) ?" 

210 GETXS : I F X$="" OR X$<>»Y" AND X$<>"N" THEN 200 
220 IF X$="N" THEN 240 
230 GOTO 110 
240 CLOSE 1 

Program Documentation: 

The sequential file "TELEDAT" is opened for 
writing 

The screen is cleared 

The four fields are entered from the keyboard 

If the data are not correct, they can entered 
again 

The four fields are written to disk 

Here the execution of the program can be 
ended 

Input will be continued 

The file opened in line 100 is closed 

Type this program in, RUN it, and enter some data. Save the 
the program on diskette, so you can combine it with other 
routines later if you like. In the last section of this 
cnapter, is a complete program for managing your telephone 
numbers. r 

If you have entered some data, you would probably like to 
find a telephone number. To do so, you could print the 
entire file on the screen or printer and find it yourself. 
This is, however, a wasteful method, especially if you have 
entered many records. 

The search for the telephone number corresponding to a given 
name can be performed by the computer. It runs through the 
whole list, looking for the desired name. Once found, it 
gives you the complete record which contained that name. The 
following routine accomplishes this: 

100 OPEN 1,8,2,"TELEDAT,S,R» 
110 DIM D$(100,4) :X=1 

120 INPUT#1,D$(X,1),D$(X,2),D$(X,3),D$(X,4) 

130 IF ST<>64 THEN X=X+l:GOTO 120 

140 CLOSE 1 

150 PRINT CHR$(147) 

160 PRINT" DESIRED NAME : ";N$ 

170 FOR 1=1 TO X 

180 ID D$(I,1)=N$ THEN 210 

190 NEXT I 



Line 100 

Line 110 
Lines 120-150 
Lines 160-180 

Line 190 
Lines 200-220 

Line 230 
Line 240 
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200 PRINT"NAME NOT POUND ! " : GOTO 280 
210 PRINT" NAME FOUND:" 

220 PRINT" " 

230 PRINT" LAST NAME: "?D$(I,D 
240 PRINT"FIRST NAME: ";D$(I,2) 
250 PRINT" AREA CODE: "fD$(I,3) 
260 PRINT" NUMBER: ";D$(I,4) 

270 PRINT" " 

280 PRINT "MORE ( Y/N) ?" 

290 GETX$:IF X$="" OR X$<>"Y" AND X$<>"N" THEN 290 

300 IF X$="Y" THEN 150 

310 PRINT" PROGRAM DONE" :END 



Program Documentation 
Line 100 



The sequential file "TELEDAT" is opened for 
reading 

Line 110 The table is dimensioned for 100 records and 

the index is set to one 

Line 120 The data records are read into the table 

Line 130 The status variable ST is checked for end of 

file (indicated by a value of 64). If the 
end has not been reached, the index is 
incremented and a new record is read. 

Line 140 The file opened in line 100 is closed 

Line 150 The screen is cleared 

Line 160 . The last name to be searched for is read from 

the keyboard and placed in the variable N$ 

Lines 170-190 The loop searches the table of records, 

checking the name fields against the desired 

name. If the position is found, the program 

branches to the output routine 

Line 200 The name was not found 

Lines 210-270 The record containing the desired name is 
displayed 

Lines 280-310 The possibility to search for a new name is 
allowed 



You will notice that this search is quite fast when the data 
is already loaded into the computer. Searching the 
computer's memory is faster than searching the diskette. The 
program can be easily changed to search for a desired field 
other than the name. You might want to search for an area 
code, for instance. The first program stops the search when 
the first matching data record is found. This is not always 
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desired, however. If, for instance, you wish to search the 
table looking for a particular area code and want all 
matches to be displayed, a different routine is needed. The 
routine must continue the search after the first match is 
found. The next program takes care of this: 

100 OPEN 1,8,2,"TELEDAT,S,R" 
110 DIM D$(100,4) :X=1 

120 INPUT#1,D$(X,1) ,D$(X,2) ,D$(X,3) ,D$(X,4) 

130 IF ST<>64 THEN X=X+l:GOTO 120 

140 CLOSE 1 

150 PRINT CHR$(147) 

160 PRINT-AREA CODE TO SEARCH FOR: " ;AC$ 

170 FOR 1=1 TO X 

180 IF D$(I,3)=AC$ THEN 210 

190 NEXT I 

200 PRINT-END OF DATA ! " : GOTO 270 

210 PRINT" " 

220 PRINT" LAST NAME: ";D$(I,1) 
230 PRINT-FIRST NAME: ";D$(I,2) 
240 PRINT-AREA CODE: ";D$(I,3) 
250 PRINT" NUMBER: ";D$(I,4) 

260 PRINT" " 

270 PRINT-MORE ( Y/N) ?" 

280 GETX$:IF X$="" OR X$<>"Y" AND X$<>"N" THEN 280 

290 IF X$="Y" THEN 190 

300 PRINT-SEARCH DONE!": END 

Here the search is continued if a record with the 
appropriate area code is found. This happens in line 290, 
which branches back to the loop instead of ending the 
program. After searching all of the records, the program 
responds END OF DATA. If you understand the operation of 
this program, you can now develop a search for the last 
name. With the help of the previous programs, this should 
present no difficulty. 



1.4.9 Simple Sorting of Tables 

In data processing, it is often necessary to sort data into 
numeric or alphabetic order. This has always been a time 
consuming task, which the programmer has tried to shorten ly 
using better sorting methods. Sorting is certainly a time 
consuming task when performed with the programming language 
BASIC, which is relatively slow. 

Why should we sort the data at all? Suppose you had a 
telephone book in which the names were not ordered. You 
would have search the entire book from beginning to end to 
find a name. Sorting offers advantages when searching data. 
The computer can also search sorted data faster. 
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There are several search methods which differ mainly in 
their speed of execution. The simplest method compares each 
data item with every other. If a table is supposed to be 
sorted in ascending order, the first item ir . the : table 
compared to the second. If the first is greater, it is 
exchanged with the second. After that, the first will te 
compared to the third, and so on, until the last item is 
reached. Now the smallest item is at the beginning, in the 
right place. The next time through, the first item is no 
longer needed. A flowchart of the program logic appears 
below. 




NO 




(~ END ^) 
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This sort program starts using an index of 1, which is 
stored in the variable I. The second index is the variable 
X, which receives a value one greater than I. Then the first 
item is compared to the second. If the value of TA(I) is 
greater then TA(X), the program must use a temporary 
variable, TA(0), to make the exchange between the two. After 
this, the value of X is incremented, to three, and TA(I) is 
again compared to TA(X), etc. When the last item in the 
table is reached, (X > last index), the first item will be 
the smallest, and the index I is incremented by one. Now the 
second item is compared to every other (starting with the 
third), and so on. 

This sort method looks quite complicated at first glance. 
Comparisons in memory are done relatively quickly, however. 
This method is sufficient for small quantities of data. 

In order to run this program, a table must be built. This 
example uses a table with twelve items containing alpha- 
numeric data (strings). The table is filled by the following 
routine: 

100 DIM TAS(12) 
110 FOR 1=1 TO 12 
120 INPUT TA$(I) 
130 NEXT I 

This program allows you to enter twelve strings, which are 
then sorted with the following program: 

140 1=1 
150 X=I+1 

160 IF TAS(I) < TAS(X) THEN 180 

170 TA$(0)=TA$(I) :TA$(I)=TA$(X) :TA$ (X) =TA$ ( ) 

180 X=X+1 

190 IF X <= 12 THEN 160 
200 1=1+1 

210 IF I <> 12 THEN 150 
220 FOR 1=1 TO 12 
230 PRINT TASQ2) 
240 NEXT I 

The table is sorted and displayed on the screen, if, instead 
of a one dimensional table, you want to sort a two 
dimensional table such as our telephone file, exchange the 
fields by changing lines 160-170 as below: 

160 IF D$(I,1) < D$(X,1) THEN 180 

170 D$(0,1)=D$(I,1);D$(I,1)=D$(X,1): 
D$(X,1)=D$(0,1) 

171 D$(0,2)=D$(I,2) :D$(I,2)=D$(X,2) : 
D$(X,2)=DS(0,2) 

172 D$(0,3)=P$(I,3) :D$(I,3)=DS(X,3) : 
D$ ( X , 3 ) =DS ( , 3 ) 

173 D$(0,4)=D$(I,4) :D$(I,4)=D$(X,4) : 
DS(X,4)=D$(0,4) 
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It is very time consuming to sort a greater amount of data 
with this method. If you have a large amount of data to be 
sorted, we recommend that you use the very fast machine 
language sort routine from our book Commodore 64 Tips & 
Tricks. 



1.4.10 HAILING LIST MANAGEMENT with sequential Data Storage 

At the end of this section, is a mailing list management 
program that every user will hopefully find easy to use. At 
the same time, this program provides insight into the opera- 
tion of many data processing techniques. 

A mailing list record of this program consists of the 
following fields: 

- NAME 1 

- NAME 2 

- STREET 

- CITY, STATE 

- ZIP CODE 

- TELEPHONE NUMBER 

- NOTES 

The use of the fields 'NAME 1" and 'NAME 2' are up to the 
user. For instance, 'NAME 1' can be the first name and 'NAME 
2' the last name, or 'NAME 1' the company name and "to the 
attention of..." in 'NAME 2'. The field ' NOTES' can be used 
for grouping the addresses (family, business, friends, 
etc. ) . 

The program offers the following Main Menu options: 

-1- LOAD DATA 

-2- SAVE DATA 

-3- INPUT DATA 

-4- EDIT DATA 

-5- SELECT/PRINT DATA 

-6- DELETE DATA 

-0- END PROGRAM 



-1- LOAD DATA 

Use this function to enter the name of the mailing list 
file that is to be maintained. If the file exists on the 
diskette, it is loaded and ready to be used. The number 
of records in the file is displayed. If an error is 
encountered while loading, or if the file does not exist, 
the message DISK ERROR! is displayed. At the conclusion 
of this function, the Main Menu reappears. 
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-2- SAVE DATA 

Use this function to write an updated or expanded copy of 
the mailing list to the diskette. If the file name 
already exists, then the file is overwritten. 

The mailing list should be saved often while using the 
program in case a power outage should erase the 
computer's memory. After saving, the file can be used 
further, without having to reload it in again. 

-3- INPUT DATA 

Use this function to add records to the mailing list: 

1. When no data has been previously loaded. 

First a file name for the mailing list is entered. 
Enter a file name which does not already exist on the 
diskette or the old file is overwritten. All records 
that are inputted are new to the mailing list. 

2. When data has been previously loaded. 

All records that are inputted are added to the 
existing mailing list. 

After entering an mailing list entry, the message CORRECT 
(Y/N)? is displayed. Here you may correct the data. If 
the entry is not correct, press the N key. If the entry 
is correct, press Y. Now the message MORE INPUT (Y/N)? is 
displayed. If you want to enter another mailing list 
entry, press Y. If you press N, the Main Menu appears 
again. 



-4- EDIT DATA 

Use this function to change existing mailing list rec- 
ords. Both Name 1 and Name 2 must be entered. If both 
names are not known, the other can be found with the 
SELECT/PRINT DATA routine. After entering the names, the 
mailing list is searched for matching names. When they 
are found, the complete address is displayed with the 
fields numbered. Now you must enter the number of the 
field which you want to change. The new contents are 
requested. The record is once again displayed in its 
updated form. If no more changes to this record are 
required, press 9. The program asks if another record is 
to be changed. This question is to be answered by 
pressing Y or N. 
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-5- SELECT/PRINT DATA 

Use this function to search for certain records and print 
or display them, you must first specify if the selected 
records are to be printed on the screen (S) or the 
printer (P). If you have selected the printer, you must 
again choose if the data is to be printed with all fields 
on normal paper (P), or if fields 1-5 are to be printed 
on mailing labels (M). The address labels must be in a 
single column and measure 89mm x 36mm. 

In order to select the data, enter search criteria. For 
fields which are not relevant, simply press RETURN. If, 
for example, you want to find all addresses in Grand 
Rapids, press RETURN for the first three fields and type 
GRAND RAPIDS, MI for the fourth, and press RETURN for the 
next three. 



An example: 



NAME 1 
NAME 2 
STREET 
CITY, STATE 
ZIP CODE 

TELEPHONE NUMBER 
NOTES 



M 

<return> 
<return> 
<return> 
<return> 
<return> 
FAMILY 



All family members whose name 1 begins with 'M' will be 
displayed. 

You can see how versatile this search is. Try it out 
yourself. 



-6- DELETE DATA 

Use this function to delete records. After entering the 
first and second names of the record, the record is read 
and the remaining fields are displayed. Then you are 
asked to confirm that the record is to be deleted. If you 
press Y, the record is deleted. 



-0- END PROGRAM 

Use this function to leave the program. Before the 
program is ended, you are reminded that you can restart 
the program without losing data by typing GOTO 110. This 
is important if you forget to save the data before ending 
the program. 
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Here is the program listing: 

100 POKE 53280,5:POKE53281,2:PRINTCHR$(158);:DIMD$(100,7) 
110 GOSUB2030 

120 PRI NT" SELECT THE DESIRED FUNCTION : " 

130 PRINT" ■ ":PRINT 

140 PRINT" -1- LOAD DATA" 

150 PRINT" -2- SAVE DATA" 

160 PRINT" -3- INPUT DATA" 

170 PRINT" -4- EDIT DATA" 

180 PRINT" -5- SELECT/PRINT DATA" 

190 PRINT" -6- DELETE DATA" :PRINT 

200 PRINT" -0- END PROGRAM" 

210 PRINT 

220 PRINT" CHOICE (0-6)?" 

230 GETX$ 8 1 FX$ < " " ORX$ > " 6 " THEN2 3 
240 IF X$O"0"THEN340 

250 PRINT:PRINT" ARE YOU SURE ( Y/N) ?" 

260 GETX$:IFX$O"N"ANDX$O"Y"THEN260 
270 IFX$="N"THEN110 
280 GOSUB2030 

290 PRINT"THE PROGRAM CAN BE RESTARTED WITH 

300 PRINT" 'GOTO 110'" 

310 PRINT" WITHOUT LOSS OF DATA" 

330 END 

340 ONVAL(X$)GOSUB360, 540, 680 ,880, 1190, 1770 

350 GOTO 110 

360 REM ********* 

370 REM LOAD DATA 

380 REM ********* 

390 GOSUB 2030 

400 INPUT"NAME THE FILE :";FN$ 

410 OPEN 15,8,15 

420 0PEN1,8,2,FN$+",S,R" 

430 INPUT#15,FE:IF FE=0 THEN 460 

440 PRINT"DISK ERROR 1 " 

450 GOTO 510 

460 X=l 

470 INPUT#1,D$(X,1) ,D$(X,2) , D$ (X , 3 ) , D$ (X ,4 ) , D$ ( X,5 ) , D$ ( X, 6 ) , 
D$(X,7) 

480 IF ST<>64 THEN X=X+1 :GOTO470 

490 PRINT"FILE IS LOADED AND CONTAINS" ;X; "RECORDS. " 

500 PRINT 

510 CLOSE:CLOSE15 

5 20 PRINT" RETURN FOR MORE" 

530 INPUTX$S RETURN 

540 REM ********* 

550 REM SAVE DATA 

560 REM ********* 

570 IF X>0 THEN 590 

580 GOSUB2230: RETURN 

590 GOSUB 2030 

600 OPEN 1,8,2,"@:"+FN$+",S,W" 
610 FORI=lTOX 

620 PRINT#1,D$(I,1)","DS(I,2)","D$(I,3) ; 
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630 PRINT#1,D$(I,4)","D$(I,5)","D$(I,6)","D$(I,7) 
640 NEXT 

650 PRINT "DATA IS SAVED" : CLOSE1 tRETURN 

660 PRINT" RETURN FOR MORE" 

670 INPUTX$: RETURN 

680 REM ********** 

690 REM INPUT DATA 

700 REM ********** 

710 IFX>0THEN730 

720 GOSUB2030:INPUT"FILENAME " ; FN$ 

730 X=X+1 

740 GOSUB2030 

750 PRINT" INPUT DATA:" 

760 PRINT" ":PRINT 

770 I=X:GOSUB2110 

780 F0RI=1T07:PRINTCHR$(145) ; :NEXT 

790 F0RI=1T07:PRINTTAB(12) ; : INPUTD$ (X , I) :NEXT 

800 PRI NTiPRINT"CORRECT ( Y/N) ?" 

810 GETX$:IFX$O"N"ANDX$O"Y"THEN810 

820 IFX$="Y"THEN840 

830 GOTO 740 

840 PRINT"MORE INPUT (Y/N)?" 

850 GETX$:IFX$O"N"ANDX$O"Y"THEN850 

860 IFX$="Y"THEN730 

870 RETURN 

880 REM ********* 

890 REM EDIT DATA 

900 REM ********* 

910 IF X>0THEN93O 

920 GOSUB2230 tRETURN 

930 GOSUB2030 

940 INPUT" NAME 1: ";N1$ 

950 INPUT "NAME 2: ";N2$ 

960 FORI=lTOX 

970 IF D$(I,1)=N1$ANDD$(I,2)=N2$THEN1010 
980 NEXTI 

990 PRINT"NAME NOT FOUNDl " 

1000 PRINT" RETURN FOR MORE" : INPUTXS :RETURN 
1010 GOSUB2030 

1020 PRINT"-1- NAME 1 :";D$(I,1) 
1030 PRINT"-2- NAME 2 :";D$(I,2) 
1040 PRINT"-3- STREET :";D$(I,3) 
1050 PRINT"-4- CITY, STATE :";D$(I,4) 
1060 PRINT"-5- ZIP CODE :";D$(I,5) 
1070 PRINT"-6- TELEPHONE :";D$(I,6) 
1080 PRINT"-7- NOTES :";D$(I,7) 
1090 PRINT"NO. OF FIELD TO CHANGE: " :PRINT" ( 9=NO 
CHANGES ) " 

1100 GETX$:IFVAL(X$X10RVAL(XS)>7ANDVAL(X$)O9THEN1100 
1110 IFVAL(X$)=9THEN1150 
1120 Y=VAL(X$) 

1130 INPUT "NEW CONTENTS" ;D$( I, Y) : PRI NT 
1140 GOTO 1010 

1150 PRINT"MORE CHANGES (Y/N)?" 

1160 GETX$:IFX$O"Y"ANDX$O"N"THEN1160 
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1170 IFX$ = "yTHEN880 
1180 RETURN 

1190 REM ***************** 
1200 REM SELECT/PRINT DATA 
1210 REM ***************** 
1220 IF X>0THEN1240 
1230 GOSUB2230: RETURN 

1240 GOSUB2030:PRINT"OUTPUT TO PRINTER (P) OR SCREEN (S)'" 
1250 GETX$:IFX$O"S"ANDX$O"P"THEN1250 
1260 O$=X$:IFO$="S"THEN1300 

1270 PRINT : PRINT" PAPER (P) OR MAILING LABELS (M)?" 
1280 GETX$:IFX$O"P"ANDX$O"M"THEN1280 
1290 D$=X$ 
1300 GOSUB2030 

1310 PRINT" ENTER THE SEARCH DATA:" 

1320 PRINT"PRESS RETURN BY IRRELEVANT FIELDS." 

1330 PRINT" " -PRTNT 

1340 I=0:GOSUB2110 

1350 FORI=lT07 :PRINTCHR$ ( 145 ) ; :S$ ( I) ="" :NEXT 

1360 F0RI=1T07:PRINTTAB(12) ; :INPUTS$(I) :NEXT 

1370 IFO$="S"ORD$="M"THEN1450 

1380 GOSUB2030:PRINT"PRINTER READY ( Y) ?" 

1390 GETX$:IFX$O"Y"THEN1390 

1400 OPEN 1,4 

1410 PRI NT# 1 , " NAME 1" ; SPC( 8 ) ; "NAME 2" ;SPC< 8) ; "STREET" ; 
SPC(IO) ; 

1420 PRINT#1,"CITY, STATE" ; SPC( 4 );" ZIP CODE TELEPHONE NOTES" 
1430 F0RI=1T079:PRINT#1,"=";:NEXT:PRINT#1 
1440 CLOSE1 
1450 FORI=lTOX 
1460 FORY=lT07 

1470 IFS$(Y)=LEFT$(D$(I,Y),LEN(S$(Y)))THENZ=Z+1: GOTOl 4 8 
1480 NEXTY 

1490 IFZ=7THENGOSUB1550 
1500 Z=0:NEXTI 

1510 PRINT:PRINT"END OF DATA1 " SPRINT 

1520 PRINT" RETURN FOR MORE": PRINT 

1530 INPUTX$ 

1540 RETURN 

1550 IFO$="S"THEN1730 

1560 IFD$="M"THEN1670 

1570 OPEN1.4 

1580 PRINT#1,D$(I,1) ;SPC(14-LEN(D$(I,1) ) ) ; 
1590 PRINT#1,D$(I,2) ;SPC( 14-LEN( D$ ( I , 2 ) ) ) ; 
1600 PRINT#1,D$(I,3) ;SPC( 16-LEN( D$ ( I ,3 ) ) ) s 
1610 PRINT#1,D$(I,4);SPCU5-LEN(D$(I,4))) ; 
1620 PRINT#1,D$(I,5) ; SPC( 8-LEN( D$ ( 1 ,5 ) ) ) ; 
1630 PRINT#1,D$(I,6);SPC(12-LEN(D$(I,6) )) ; 
1640 PRINT#1,D$(I,7) 
1650 PRINT* l:CLOSEl 
1660 RETURN 
1670 OPEN2,4 
1680 PRINTS 2 

1690 F0RJ=1T05:PRINT#2,D$(I,J) :NEXT 
1700 PRINT#2:PRINT#2:PRINT#2 
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1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2220 

2230 

2240 

2250 

2260 



CL0SE2 
RETURN 

GOSUB2030 :GOS0B2110 
PRINT :PRINT"MORE ( Y) ?" 
GETX$:IFX$O"Y"THEN1750 
RETURN 
REM 



*********** 



REM DELETE DATA 
REM *********** 
IFX>0THEN1820 
GOSUB2230 :RETURN 
GOSUB2030 

INPUT" NAME 1 : "?N1$ 
INPUT "NAME 2 : ";N2$ 
FORI=lTOX 

IFD$ (1,1) =N1$ANDD$ (1,2) =N2$THEN1900 
NEXTI 

PRINT"NAME NOT FOUND! " iPRINT 

PRINT" RETURN FOR MORE" : INPUTXS : RETURN 

GOSUB2030:GOSUB2110 

PRI NT : PRI NT " DELETE RECORD ( Y/N) ?" 

GETX$:IFX$O"Y"ANDX$O"N"THEN1920 

IFX$="N"THENRETURN 

FORY=ITOX-l 

FORJ=lT06 

D$(Y,J)=D$(Y+1,J) 

NEXTJ , Y 

FORJ=lT06 :D$ (X,J)="" :NEXTJ 
X=X-1 

PRINT" RECORD IS DELETED 1 " 

PRI NT "RETURN FOR MORE" 

INPUTXS: RETURN 

REM *************** 

REM PROGRAM HEADING 

REM *************** 

PRINTCHR$(147) ; 

PRINTTAB( 8 ) ; »=======================" 

PRINTTAB( 8 ) ; "M AILING LIST 
PRINTTABf 8) ; "=======================" 

RETURN 

REM ************ 

REM PRINT RECORD 

REM ************ 

PRINT"NAME 1 : ";D$(I,D 

PRINT"NAME 2 : "?D$(I,2) 

PRINT" STREET : ";D$(I,3) 

PRINT"CITY, STATE : ";D$(I,4) 

PRINT"ZIP CODE : ";D$(I,5) 

PRINT"TELEPHONE : ";D$(I,6) 

PRINT"NOTES s ";D$(I,7) 

RETURN 

REM ******** 
REM NO DATA! 
REM ******** 
GOSUB2030 
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2270 PRINT"NO DATA IN MEMORY ! " : PRINT 
2280 PRINT" RETURN FOR MORE" 
2290 INPUTXS : RETURN 



1.4.11 Uses for Sequential Storage 

The great advantage of sequential storage as compared to 
relative and direct access storage, is that a lot of data 
can be written to the diskette quickly. Data of varying 
lengths can be stored together, without requiring the rec- 
ords to be of a definite length. It makes sense to make use 
of this advantage, where the the file roust not be 
permanently divided into parts. Examples are: 

* Bookkeeping files 

In a bookkeeping journal, all entries are recorded 
continuously. Changes should not be made to these 
entries. Instead, adjustment entries should be made 
to effect changes. 

* Analysis files 

You analyze a direct access file, looking for, say, all 
customers with whom you have done more than 2000 
dollars of business in a certain zip code, and write 
the found records in a sequential file for later 
access. 

Naturally, sequential files also offer a substitute for 
direct access files, as discussed in this chapter, if the 
user does not possess further programming knowledge. We must 
certainly recommend that you work through the other methods 
of data storage, which offer other advantages. 
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1.5 Relative Data Storage 

Relative data storage and its programming is not described 
in the VIC-1541 user's manual. The reason may lie in the 
fact that the Commodore 64 and the VIC-20 have no commands 
to process relative files using BASIC 2.0. Therefore, it is 
in principle not possible to use relative data storage on 
the Commodore 64 and VIC-20 - but only in principle. We have 
developed a few tricks that work within the limitations of 
BASIC 2.0 and permit the Commodore 64 and also the VIC-20 to 
use relative data storage. The examples may seem to be 
somewhat complicated at first. For example, information 
about the record lengths will be transmitted to the disk 
using CHR$(x) codes. But they provide for a very easy method 
of data storage. 



1.5.1 The Principle 

When using relative record data processing, the data records 
are numbered. It is assumed that all records in a relative 
file have the same length and that the record number of 
every record is known or can be calculated. To find a 
record, it is not necessary to search through the entire 
file. Only the record number need be given to access the 
record. Using the record number, the DOS can find where the 
record is "relative" to the beginning of the file on the 
diskette and can read it directly. Therefore, you don't have 
to read an entire file into the computer, only the desired 
records. 

Managing a relative file follows this pattern: 
Create a relative file: 

1. The file is opened. With this the length of a record 
is established. 

2. The last record is marked. 

3. The file is closed. 

Writing a record: 

1. The file is opened. 

2. The file is positioned on the record to be written. 

3. The record is written. 

4. The file is closed. 

Reading a record: 

1. The file is opened. 

2. The file is positioned over the record to be read. 

3. The record is read. 

4. The file is closed. 
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This is only an outline. In the following sections these 
processes will be explained in detail. 



1.5.2 The Advantage over Sequential Storage 

The greatest advantages of relative storage are: 

* faster access to individual records 

* does not require much of the computer's memory 

It has already been mentioned that the sequential file must 
reside completely in the computer's memory for processing. 
Using sequential techniques, it may be necessary to search 
the entire file to find a given record. The record must be 
read and compared during the search process. But if a 
sequential file cannot be entirely loaded into memory, this 
method of search is impossible. 

Using relative data files, the processing is much simpler. 
By using the record number, a desired record can be read 
individually. The file size is not limited to the computer's 
memory. So, for example, a program that uses all 3.5K bytes 
of a standard VIC-20 can manage a file with up to 163 
Kbytes! 

The advantages of relative over sequential file management 
are large enough that many of you, once acquainted with the 
techniques will prefer to use them. 



1.5.3 Opening a Relative Pile 

Relative files are also opened with the OPEN command. The 
command differs only slightly from that for sequential 
files. Take a look at the format of the OPEN command: 

OPEN lfn,da,channel,"f ilename,L,"+CHR$(recordlength) 

The first four parameters are identical to those for 
sequential files. They are logical file number, device 
address (normally 8), channel (2-14), and name of the file. 
Next follows an L which informs the DOS that a relative file 
should be opened, whose record length follows. This record 
length is transmitted with a CHR$ code. The length is 
between one and 254. Thus each record of a relative file is 
limited to a maximum of 254 characters. 

If the record length is smaller than 88, the record can be 
read with an INPUT* statement. For this, it is necessary 
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that the PRINT* statement transfers the record with a 
trailing RETURN. A PRINTS statement sends a RETURN when it 
is not ended with a semicolon. This RETURN is now a part of 
the record. When you want to read records with INPUTS, the 
record length must be increased by one. 

A file composed of 80-character records, to be read by the 
INPUT* statement would be opened as follows: 

OPEN 1 ,8,2,"FILE.REL,L,"+CHR$(81) 

Here a relative file with the name "FILE.REL" is opened 
using channel 2. The record length should total 81 
characters. Records comprised of 80 characters should be 
sent with a PRINT* statement, with no trailing semicolon. 

It is important to note that only one relative file can be 
opened at a time. If you want to work with two relative 
files, you must always close the first before opening the 
second. One sequential file may be opened in addition to one 
relative file. 

When a relative file is opened for the first time, the DOS 
creates as many "null" or unused records that can fit in a 
single 254 byte block. It creates these "null" records by 
writing a record with a CHR$(255) at the beginning of each 
record. This is called formatting a relative file. 

If you want to expand a relative file beyond the initial 
number of records that the DOS formatted, then you can 
reference the last record number that you want to write (by 
positioning to that record number) and the DOS automatically 
formats the records between the current end of file and the 
new last record number by writing records containing 
CHR$(255). Formatiing takes time to complete. 

If you try to read a record whose number greater than that 
of the last record, the DOS returns the error RECORD NOT 
PRESENT. However, if you write a record which is greater 
than the highest current record, all records less than the 
new record number are also written with CHR$(255). 
Subsequently accessing these record does not result in an 
error. 

If you want to avoid long delays as relative records are 
formatted (as the file is expanded), then you should 
reference the last record number immediately after opening 
the file. The formatting of the null records takes place at 
that time instead of at a more inconvenient time. 

To position the DOS for a specific relative record you must 
send a position command over the command channel (15), as 
shown here: 

PRINTtlf n, "P"+CHR$ ( channel )+CHR$ ( low) +CHR$ ( h ig» ) +CHR$ ( by te ) 
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If you are positioning to a record which is beyond the 
current end of file, the DOS presents the message RECORD 
NOT PRESENT appears to the disk error channel, if this 
record is to be written, then you can ignore the message. 
The following PRINT# statement is carried out in spite of 
the error message. 

The parameters low and high in the P command designate the 
record number. The maximum value that can be given with one 
byte is 255, but a relative file contains up to 65535 rec- 
ords. Therefore, the record number must be transmitted in 
two bytes. These two bytes are calculated with the following 
formula: 

HB=INT(RN/256) 
LB=RN-HB*256 

HB = High Byte (parameter high) 
LB = Low Byte (parameter low) 
RN = Record Number 

The last parameter (byte) serves to position to a specific 
location within the given record. An example: 

PRINT#2 , "P'+CHRS ( 2 )+CHRS ( 10 )+CHR$ ( 1 ) +CHR$ ( 5 ) 

Here the file is positioned to the fifth byte of the 266th 
record. This 266 is coded as a low byte of 10 and a high 
byte of 1 (high byte * 256 + low byte = record number). 

To read or write a complete record, the file is positioned 
to the first byte of the record. If the last parameter is 
not given, the trailing RETURN (CHR$(13)) is taken as the 
character location. 

The corresponding BASIC program to establish a file of 100 
80-character records looks like this: 

100 RN=100 

110 HB=INT(RN/256) 

120 LB=RN-HB*256 

130 OPEN1,8,2,"FILE.REL,L,"+CHR$(80) 
140 OPEN2,8,15 

150 PRINT#2 , "P"+CHR$ ( 2 ) +CHR$ ( LB) +CHR$ ( HB) +CHR$ ( 1 ) 
160 PRINT#1,CHR$(255) 
170 CLOSE l:CLOSE 15 

Freeing 100 records takes some time. The creation of this 
file takes about ten minutes. Notice that of the 80 char- 
acters in a record, only 79 can be used to hold data, 
because transferring data with a PRINT# command adds a 
trailing RETURN. 
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1.5.4 Preparing Data for Relative Storage 

As already mentioned, you cannot change the record length of 
a relative file. If a record consists of several fields, 
these fields must be combined. It is important that these 
fields always be in the same position so that they can be 
separated later. Let's work through a problem: 

We want to manage an inventory using relative storage 
techniques. To that end, the following fields are necessary: 

PART NUMBER 
DESCRIPTION 
QUANTITY 
COST 
PRICE 

Record length 36 bytes 



4 CHARACTERS 
15 CHARACTERS 

5 CHARACTERS 

6 CHARACTERS 
6 CHARACTERS 



The inventory contains approximately 200 items with a record 
length of 36 bytes. This inventory file can now be created: 

100 RN=200:REM NUMBER OF INVENTORY ITEMS 

110 RL=36 :REM RECORD LENGTH 

120 OPEN 1,8,2,"INVEN,L,"+CHR$(36) 

130 OPEN 2,8,15 

140 PRINT#2 f "P ,, +CHR$(2)+CHR$(200)+CHR$(0)+CHR$(l) 

150 PRINT#1,CHRS(255) 

160 CLOSE l:CLOSE 2 

Now the file is created and all records are written. Let's 
suppose that the inventory is present as a sequential file. 
It consists of 200 records, the fields of which are ordered 
one after the other. These fields must be written to the 
relative file. This is not simple, however, because many of 
the descriptions are not the full fifteen characters _ in 
length, for example. The structure of the relative file 
looks as follows: 

111111111122222222223333333 
Position : 123456789012345678901234567890123456 



Field 



: PN$-DE$ 0$ C$ PS- 



Contents 



1 1/8 in. sheet 

2 No. 10 screw 

3 Valve A3A4 



1344 11.40 20.30 
1231 4.00 7.00 
1243 11.45 16.40 



200 1/2 in. tubing 2321 3.35 4.10 

The fields will be read from the sequential file into the 
following variables: 
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Part number pn$ 

Description DE$ 

Quantity Q$ 

Cost c$ 

Price p$ 

The following command chains these fields together: 

RC$ = PN$ + DE$ + 0$ + C$ + P$ 

The record variable RC$ does not have the desired structure. 
The reason is that the quantity immediately follows the 
description. Because the quantity must begin at position 20 
and the description is not always fifteen characters, we 
have a problem. In order to read the records from the rela- 
tive file, the structure must be observed. Therefore, all 
fields that are shorter than the planned length must be 
padded with blanks. Taking this into account, the chaining 
goes like thiss 

BL$=" " 
RC$=PN$+LEFT$ ( BL$ , 4-LEN( PN$ ) ) 
RC$=RC$+DE$+LEFT$ ( BL$ , 1 5-LEN ( DE$ ) ) 
RC$=RC$+0$+LEFT$ ( BL$ , 5-LEN ( 0$ ) ) 
RC$=RC$+C$+LEFT$(BL$,6-LEN(C$)) 
RC$=RC$+P$+LEFT$(BL$ ,6-LEN(P$ ) ) 

This concatenation looks more complicated than it really is. 
Each field must be filled with enough blanks to bring it to 
its appropriate length. The blanks are added to the 
individual fields from the string BL$ , defined at the 
beginning. T 

Let's go through an example: 

Suppose the first part number is 8. The length of this 
string, LEN(PN$), is then one. The maximum length of this 
field (4) minus the actual length (1) is 3. The string PN$ 
must therefore be padded with three blanks, LEFT$(BL$,3). 

Each record of the old sequential file must be prepared in- 
this manner before it can be transferred to the relative 
file. 

Naturally, the above is true for all input values to be used 
in a relative file. Therefore, you must always remember to 
use a routine to fill each field with blanks to its full 
length when working with relative data processing. 
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1.5.5 Transferring Data 

in principle, transferring data to and from a relative file 
does not differ from sequential storage. Records are written 
with PRINT# and read with INPUT# or GET#. The only 
difference is that before a record is be written or read, 
the file must be positioned to that record. This is accom- 
plished with the P command. This example program illustrates 
what we have discussed! 

100 BL$=" 

105 OPEN 1,8,2,"TEST.REL,L,"+CHR$(41) 
110 OPEN 2,8,15 

1 20 PRINTt 2 , " P"+CHR$ ( 2 ) +CHR$ ( 100 ) +CHR$ ( ) +CHR$ ( 1 ) 

130 PRINT#1,CHR$(255) 

140 PRINT CHR$(147) 

150 PRINT"INPUT RECORD: " 

160 PRINT" " 

170 INPUT"RECORD NUMBER (1-100) : ";RN 

180 IF RN<1 OR RN>100 THEN PRINTCHR$ ( 145 ) ; :GOTO160 

190 INPUT" FIELD 1 (MAX. 10 CHAR.) : ";F1$ 

200 IF LEN(F1$)>10 THEN PRINTCHR$ ( 145 ) f SGOTO190 

210 INPUT" FIELD 2 (MAX. 5 CHAR.) s ";F2$ 

220 IF LEN(F2$)>5 THEN PRINTCHR$ ( 145) ; :GOTO210 

230 INPUT"FIELD 3 (MAX. 10 CHAR.) : "fF3$ 

240 IF LEN(F3$)>10 THEN PRINTCHR$ ( 145 ) ; :GOTO230 

250 INPUT" FIELD 4 (MAX. 15 CHAR.) : ";F4$ 

260 IF LEN(F4$)>15 THEN PRINTCHR$ ( 145 ) ; :GOTO250 

270 PRI NT " CORRECT (Y/N)?" 

280 GETX$:IF X$<>"Y" AND X$<>"N" THEN 280 

290 IF X$="N" THEN 140 

300 RC$=F1$+LEFT$(BL$,10-LEN(F1$) ) 

3 10 RC$=RC$+F2$+LEFT$ ( BL$ , 5-LEN( F2S ) ) 

320 RC$=RC$+F3$+LEFT$(BL$,10-LEN(F3$) ) 

330 RC$=RC$+F4$+LEFT$ (BL$ , 15-LEN( F4$ ) ) 

340 PRINT# 2 , "P"+CHR$ ( 2 ) +CHR$ ( RN) +CHR$ ( ) +CHR$ ( 1 ) 

350 PRINT#1,RC$ 

360 PRI NT "MORE INPUT (Y/N)?" 

370 GETX$:IF X$<>"Y" AND X$<>"N" THEN 370 

380 IF X$="Y" THEN 140 

390 CLOSE Is CLOSE 2 SEND 

The following line-oriented documentation explains the 
operation of the programs 

100 A blank-character string with 15 blanks is 

defined. 

105 The relative file is opened with a length of 15. 

110 The command channel 15 is opened. 

120 To initialize the relative file, the head is 

positioned over the first byte of the last (100th) 

record. 

130 The last record is freed and the initialization 

begun. 

140 The screen is erased. 
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150-260 The record no. and fields 1-4 are entered and 

checked for correct length. 
270-290 The entered data can be corrected. 
300-330 The record is prepared. 

340 The head is positioned over the first byte of the 

record. 

350 The record is written to the disk. 

360-380 New data can be entered. 
390 The program ends. 

Now write some records with this program, but don't forget 
to save in case you need it later. 

Certainly, it also necessary to read and change existing 

n C n^f;- T ° ?. th ii' the relativ * file is opened, the file 
os ^ioned to the appropriate record, and the record is 
read. This record must then be divided into its fields! 
Let s read a record that was recorded with the previous 
program. The following routine reads the record: 

100 OPEN 1,8,2,"TEST.REL,L,"+CHR$(41) 

110 OPEN 2,8,15 

115 PRINT CHR$(147) 

120 INPUT "RECORD NUMBER :":RN 

140 lllun i ; R« +CHR$ ( 2 ' +CHK$ ' RN ' +CHR$ ( > +CHR$ < 1 > 

160 IF ASC(RC$)<>255 THEN PRI NT " RECORD NOT FOUND 1 " • 
GOTO250 . 
170 PRINT RC$ 
250 CLOSE Is CLOSE 2 

This routine reads a specified record, if this record has 
never been written, it is recognized by the value 255 with 
which every record was marked at the establishment of the 
file. 



A record that is found is displayed. You can see that the 
four fields are in the same positions. If you want to divide 
the record into its individual parts, you must use the 
function MID$. For example, in order to extract field 1 of 
the record, give the following statements in the direct mode 
after the record is found and read: 

F1$=MID$(RC$,1,10) 
PRINT Fl$ 

Now the variable Fl$ contains the first field, as written by 
the first program. The division of records into individual 
fields is accomplished by building on the previous program. 
Add or change the following lines: 

170 F1$=MID$(RC$,1,10) 

180 F2$=MID$(RC$,11,5) 

190 F3$=MID$(RC$,16,10) 

200 F4$=MID$(RC$,26,15) 
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210 PRINT"FIELD 1: ";F1$ 
220 PRINT"FIELD 2: ";F2$ 
230 PRINT" FIELD 3: ";F3$ 
240 PRINT"FIELD 4: ";F4$ 
250 PRINT"MORE (Y/N)?° 

260 GETX$:IF X$<>"Y" AND X$<>"N" THEN 260 
270 IF X$="Y" THEN 115 
280 CLOSE 1: CLOSE 2 

Here the record is separated into the individual fields and 
the fields are displayed. It is important for the HID$ 
function that the exact positions of the fields within the 
record be maintained. The first parameter within the paren- 
theses is the string variable containing the record. The 
second parameter is the position at which the number of 
characters represented by the parameter will be taken out. 
Further work may done with the selected fields inside the 
program. 

So far, we have read the records with the INPUT* statement. 
If the record is longer than 88 characters, it can no longer 
be read with the INPUT* statement. The way to get around the 
limited INPUT* statement is with the GET* statement. The 
bytes of a record are read one at a time with this command 
and assembled into a single string. Suppose you have a 
relative file with 1 28-character records. Now you want to 
read the tenth record of this file and place it in the 
variable RC$. The example of the following routine 
illustrates reading this with GET*: 

100 OPEN 1,8,2,"TEST.GET,L,"+CHR$(128) 
110 OPEN 2,8,15 

120 PRINT* 2 , n P"+CHR$ ( 2) +CHR$ ( 10 ) +CHR$ ( ) +CHR$ ( 1 ) 

130 RC$="" 

140 FOR 1=1 TO 128 

150 GET#1,X$ 

160 RC$=RC$+X$ 

170 NEXT I 



After running this routine, the record is contained in the 
variable RC$. if this record had been written with a PRINT* 
statement without a trailing semicolon, the last character 
in the string will be a RETURN. To ignore this RETURN, allow 
the loop in line 140 to run only to 127. The last character 
of the record RETURN is not read. 

As already mentioned, the last parameter of the P command 
specifies at which character the transfer of data should 
begin. If, for instance, in the 127-character record of the 
previous example, you want to read positions 40-60 into a 
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field, the head must be positioned over the 40th character 
and the next 21 bytes read. The following routine clarifies 
this: 

100 OPEN 1,8,2,"TEST.GET,L,"+CHR$(128) 
110 OPEN 2,8,15 

120 PRINTS 2 , " P"+CHR$ ( 2 ) +CHR$ ( 10 ) +CHR$ ( ) +CHR$ ( 40 ) 

130 F$="" 

140 FOR 1=1 TO 21 

150 GET#1,X$ 

160 F$=F$+X$ 

170 NEXT I 



In line 120, the head is positioned over the the 40th byte 
of the tenth record in line 120 and the loop in lines 140- 
170 reads the following 21 bytes (bytes 40-60 of the record) 
into F$. 

You see then that the entire record need not be read if you 
only want to work with part of it. 



1.5.6 Closing a Relative File 

There is no difference between closing a relative file and 
sequential file. Because the command channel must always be 
open to send the position command when working with relative 
storage, it must also be closed. 



1.5.7 Searching Records with the Binary Method 

Normally each record is accessed by record number. But what 
if you want to search for a specific name in a relative file 
and the record number is not known. It is possible to read 
each record and compare each for the desired name. But this 
is very time consuming if the file has many records. 

If the file is kept in name order, the records can be 
searched using an alternative method. This method is called 
a binary search. In order to use a binary search, the 
relative file must be arranged in sorted order.. Using the 
above example, relative record 1 must contain a name with 
the lowest collating sequence while the last relative record 
must contain a name with the highest collating sequence. 
Thus the name AARON might be contained in relative record 1 
and ZYPHER might be contained in the last relative record of 
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the file and all other names would be ordered throughout. 

When records are added to the file, then the records must 
be reordered. Similarly if a name is changed, then the 
records must be reordered. 

The binary search can be explained using a simple example. 
When you want to find a name in the telephone book, you 
don't search through it sequentially. You open the book in 
the middle and compare the first letter of the desired name 
with the first letter of names on the page. If the desired 
name comes before these, you turn halfway into the first 
section of the book, and so on. You go through it 
systematically. 

The binary search is not a sequential search. It identifies 
a record halfway through the remaining number of records. 
The following example will clarify this: 

There exists the following relative file, sorted in 
ascending order: 

Record number Contents 



1 


1985 


2 


1999 


3 


2005 


4 


2230 


5 


2465 


e 


2897 


7 


3490 


8 


3539 


9 


4123 


10 


5000 


11 


5210 


12 


6450 


13 


6500 


14 


6550 


15 


6999 



Out of these fifteen records we will search for a contents 
of 3490. It is not known which record it is stored in. 

We must first know how many records are in the file. In this 
case, there are fifteen. We divide this by two. The middle 
of the file is record eight with the contents 3539. We 
determine if the contents of this record equal to the target 
value, and if not, whether it is larger or smaller. In this 
case, it (3539) is larger. This means the record we are 
looking for is in the first half of the file. So we divide 
eight by two and examine the contents of record four, 2230. 
Since 2230 is less than 3490, it lies between four and 
eight. We again divide by two and add this to record 4 which 
and results in record 6 whose contents is 2897. 2897 is less 
than 3490, so our target lies between records six and eight. 
Record seven is indeed the record we are looking for. 
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The principle of the binary search is to determine by the 
result of each comparison whether to search upwards or 
downwards until the search data is found. The maximum number 
of comparisons can be found using the following formula: 

S=INT(L0G(N)/L0G(2)+1) 

S is the number of comparisons (searches) and N is the 
number of records in the file. In a sorted relative data 
file with 1000 records, no more than ten comparisons will be 
necessary to find the desired record! 

Let's create a relative data file with fifteen records to 
test the binary search: 

100 OPEN1 , 8 , 2 , "BINARY . REL , L , "+CHR$ ( 5 ) 

110 F0RI=1T015 

120 READ RC$ 

130 PRINT#1,PC$ 

140 NEXT I 

150 CLOSE l:CLOSE 2 :END 

160 DATA 1985,1999,2005,2230,2465,2897,3490,3539 

170 DATA 4123,5000,5210,6450,6500,6550,6999 

This program puts the fifteen records in a file called 
BINARY. REL using the values given in lines 160-170. The 
position command is not necessary because the data will be 
written straight through from first to last record. After 
opening the file the pointer points to the first record. 
£u S <= ,\ e 1S desi 9 ned to b e searched with the binary method. 
The following program is based on the logic of the binary 
search: ■* 



100 0PEN1,8,2,"BINARY.REL,L,"+CHR$(5) 

110 OPEN2,8,15 

120 PRINTCHR$(147) 

140 N=15: REM NUMBER OF RECORDS 

150 I=L0G(N)/L0G(2) 

160 IF I-INT(I)<>0 THEN I=INT(I)+1 
170 M=I-1 
180 I=2 A I 
190 X=I/2 

210 INPUT" RECORD TO FIND (* TO END): ";SR$ 
220 IF SR$="*" THEN 320 

230 IF M<0 THEN PRINT"RECORD NOT FOUND" :GOTO140 
240 M=M-1 

250 PRINT#2 , "P"+CHR$ ( 2 ) +CHR$ ( X) +CHR$ ( ) +CHR$ ( 1 ) 

260 INPUT! 1 ,RC$ 

270 IF SR$=RC$ THEN 340 

280 IF SR$<RC$ THEN X=X-2*M :GOTO230 

290 X=X+2*M 

300 IF X>I THEN PRINT"END OF FILE EXCEEDED I " 

310 GOTO 230 

320 CLOSE l:CLOSE 2 
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330 END 

340 PRINT"RECORD FOUND!" 
350 PRINT "CONTENTS : ";RC$ 
360 GOTO 140 

Program Documentation: 

100 The relative file "BINARY. REL" is opened. 

110 The command channel is opened. 

120 The screen is erased. 

140 The number of records is assigned to the variable 

N. 

150-190 If the maximum number of records does not 

represent a power of two, the next higher power 
of two is formed. The file will be expanded, but 
no records are lost. The exponent of this power of 
two is used as the index. X is the value of 1/2. 
1/2 indicates the exact middle of the (expanded) 
file. After that, the variable M receives the 
value of 1-1. 

210-220 The record to be found is read. To end the 

program, enter a '*'. 
230 If M<0, the record was not found. 

240 M is decremented by one. The next Mth power 

represents half of the rest of the file. 

250-260 The file is positioned over the record containing 
in the variable X. 

270 If the target record is found, the search is 

ended and the record displayed. 

280-310 It is determined if the target record is larger 
or smaller than the record just read. The middle 
of the upper or lower half (as appropriate) is 
stored in the variable X. 

320-330 The file is closed and the program is ended. 

340-360 The found record is displayed. 

This binary search, coded in BASIC , is implemented 
universally. Only. the number of records and the appropriate 
record to be searched for need be changed. You can use this 
routine for finding records in your sorted relative data 
files. 



1.5.8 Searching Records with a Separate Index File 

If you work with individual records frequently and need 
quick access with alphanumeric keys that don't correspond to 
the logical record number, and your file is not sorted, we 
recommend another method. 

Create an index file for each desired key field, in which 
each record is composed of 
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- an index key 

- the corresponding record number 

This entire index file is to be loaded into the computer's 
memory. An example: 

You have constructed your name and address manager as a 
relative file consisting of 

- First name 

- Last name 

- Street 

- City, State 

- Zip code 

- Telephone number 

You want to be able to search the file based on the last 
name. So you create an additional sequential file that 
contains the desired key (in this case the last name) and 
the record number of the corresponding record in the 
relative file. 

The index file is read completely into the computer so the 
search can be accomplished as quickly as possible. If you 
want to access a record that has the last name HARRIS, then 
you search through the appropriate index in memory and when 
found, read the corresponding relative record by using the 
record number also contained in the index. 

Here is an example: 

We assume that a data file and an index file exist for the 
names: 

Data f^ x f ! Index file: 

Last name First name more fields Index Record No. 

( last name ) LB HB 



Smith 






01 


00 


Harris 






02 


00 


Hanson 


Carl 




03 


00 


Johnson 


Mark 




04 


00 


Green 






99 


00 



The file contains 99 records. Before the program can be 
used, the index file must be read in. This can be a 
sequential file, which can be read into a memory table 
reserved with DIM IT$(99). The first twenty characters of 
each index table position comprise the last name. The next 
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to the last byte (no. 21) is 
(no. 22) is the high byte of 
conditions, a desired record 
routine: 



the low byte and the last byte 
the record number. With these 
can be found with the following 



100 INPUT "LAST NAME" ;N$ 
110 FOR 1=1 TO 99 

120 IF LEFT$(IT$(I) ,20)=N$ THEN 150 
130 NEXT I 

140 PRINT "NAME NOT FOUND 1 " :END 
150 PRINT "RECORD FOUND1" 
160 OPEN1 ,8,2, "ADDRESS ,L, "+CHR$ ( 81 ) 
170 OPEN 2,8,15 

180 PRINT#2,"P"+CHR$(2)+MID$(IT$(I) , 21 ,1 ) +CHR$ ( ) 

+CHR$(1) 
190 INPUT#1,RC$ 



The loop in lines 110-130 goes through the index table 
sequentially, searching for the target name contained in the 
twenty leftmost characters. If the name is not found, an 
appropriate message is given (line 140), before the program 
is ended. 

If, in line 120, the target name matches the index entry, 
the program branches to line 150. After giving the message, 
the address file is opened. After opening the command 
channel, the position command is sent to the disk. Because 
the next to the last byte of the index entry contains the 
low byte of the record number, it must be extracted using 
the MID$ function. The high byte is known to be zero since 
there are fewer than 255 record. 

Finally the relative record is read in line 190. 

The access of index files is an equally fast and 
extraordinarily flexible form of data organization. One can 
theoretically have as many index files as desired. Above 
all, you must take note of two important restrictions: 

1. Changes in the main data file which affect the key 
fields must also be made to the corresponding index 
file. With several index files this can become very 
time-consuming. 

2. The number and size of the index files that are kept in 
the computer's memory for fast access are limited by 
the availability of memory. 
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1.5.9 Changing Records 

The logical process for changing a record is this: 

1. Read the record 

2. Split the record into its fields 

3. Change the appropriate field 

4. Rebuild the record (combine fields) 

5. Rewrite the record 

In section 1.5.5 we wrote some records in the filo 
TEST.REL . This file had the following properties: 

Record length 41 bytes 

Number of records 100 
Number of fields 4 



Length, position field 1 
field 2 
field 3 
field 4 



10, 1-10 

5, 11-15 

10, 16-25 

15, 26-40 



Trailing RETURN in position 41 

»»^ il ^ deSCri F^° n Such as the one above should be made for 
each of your files This is very important if other programs 
are to use these data. The file description defines the 
order and length of the fields of the file. uetln es tne 

In this file, we allow for the contents of the records to be 
changed. The following program allows changes: 

100 REM =================== 

110 REM PREPARATION 
120 REM =================== 

130 BL$=" » 

140 OPEN 1,8,2,"TEST.REL,L,"+CHR$(41) 

150 OPEN 2,8,15 

160 REM =================== 

170 REM READ RECORD 

180 REM =================== 

190 PRINT CHR$(147) 

200 INPUT" RECORD NUMBER (1-100): ";RN 

205 IP RN<1 OR RN>100 THEN PRINTCHR$ ( 145 ) ; :GOTO200 

210 PRINT" ii 

220 PRINTI2 , "P" +CHR$ ( 2 ) +CHR$ ( RN ) +CHR$ ( ) +CHR$ ( 1 ) 

230 INPUT#1,RC$ 

240 IF ASC(RC$)<>255 THEN 270 

250 PRINT "RECORD NOT WRITTEN" 

260 GOTO 630 

270 REM ====================== 

280 REM PREPARE RECORD 

290 REM ====================== 

300 F$(1)=MID$(RC$,1,10) 
310 F$(2)=MID$(RCS,11,5) 
320 F$(3)=MID$(RC$,16,10) 
330 F$(4)=MID$(RC$,26,15) 
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340 REM ====================== 

350 REM DISPLAY FIELDS 

360 REM ====================== 

370 PRINT CHR$(147) 

380 FOR 1=1 TO 4 

390 PRINT"FIELD" ; I ; " S n ;F$(I) 

400 NEXT I 

410 PRINT" " 

420 REM ====================== 

430 REM CHANGE FIELDS 

440 REM ====================== 

450 PRI NT" CHANGE WHICH FIELD (1-4)?" 
460 GETX$:IFX$<"1" OR X$>"4" THEN 460 
470 INPUT"NEW CONTENTS : " ; F$ ( VAL( X$ ) ) 
480 PRINT" RECORD IS CHANGED" 

490 PRI NT "MORE CHANGES IN THIS RECORD ( Y/N) ?" 
500 GETX$:IF X$<>"Y" AND X$<>"N" THEN 500 
510 IF X$="Y" THEN 340 
520 REM ==================== 

530 REM CHAIN FIELDS 

540 REM ==================== 

550 RC$=F$(1)+LEFT$(BL$,10-LEN(F$(D) ) 
560 RC$=RC$+F$ ( 2 ) + LEFTS ( BL$ , 5-LEN( F$ ( 2 ) ) ) 
570 RC$=RC$+F$(3)+LEFT$(BL$,10-LEN(F$(3)) ) 
580 RC$=RC$+F$ ( 4 ) +LEFT$ ( BL$ , 1 5-LEN( F$ ( 4 ) ) ) 
590 REM ========================= 

600 REM WRITE RECORD BACK 

610 REM ========================= 

620 PRINT#1,RC$ 

630 REM ==================== 

640 REM END PROGRAM? 

650 REM ==================== 

660 PRINT" MORE CHANGES TO FILE (Y/N)?" 
670 GETX$:IF X$<>"Y" AND X$<>"N" THEN 670 
680 IF X$="Y" THEN 160 
690 CLOSE l:CLOSE 2 :END 

After this program is RUN you can change any desired record. 
This record must have been written with the program in 
section 1.5.5. 

This editing program does not check the new field data for 
correct length. 

The important commands in this program have already been 
explained in the corresponding sections. 



1.5.10 Expanding a Relative File 

Every relative file has a user-determined number of records 
that ranges from 1 to 65538. This number is the record with 
the highest record number and is written to the file with a 
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value of CHR$(255). Writing this last record also formats 
all records in the file that precede this record number with 
CHR$(255). 

You can expand the size of a relative file at a later time. 
For example, consider a relative file that is initially 
created with three records. After the file is OPENed, you 
position the file at record number 3 and write the record 
with CHR$(255). Here's an example of how you might do this: 

10 OPEN 1,8,2,"RELFILE,L,"+CHR$(50) 

20 OPEN 15,8,15 

3 PRINT# 15 , "P»+CHR$ ( 2 ) +CHR$ ( 3 ) +CHR$ ( ) +CHR$ ( 1 ) 

40 PRINT#1,CHR$(255) 

When statement 40 is performed, not only is record 3 
written, but records 1 and 2 are also formatted by the DOS. 
Subsequently, if you position and write a 90th record, the 
DOS formats records 4 through 89 (see lines 150 and 160 
below). Each time the file is expanded, the DOS formats 
records between the current high record number and the new 
high record number. 



150 PRINT#15,"P"+ CHR$(2)+CHR$(90)+CHR$(0)+CHR$(1) 
160 PRINT#1,CHR$(255) 



500 PRINT# 15 , "P"+CHR$ ( 2 ) +CHR$ ( 175 ) +CHR$ ( ) +CHR$ ( 1 ) 
510 PRINT#1,CHR$(255) 



An existing relative file can be expanded at any time, 
provided there is sufficient room on the disk. To do so, the 
new last record is written with CHR$(255). At the same time, 
all records between the old and new end of file are also 
formatted. 

When writing a record to a relative file whose record number 
is higher than the current high record number, a DOS error 
is not returned. If there is room on the diskette for the 
new records (current high record number through the new high 
record number) the file is simply expanded. If there is a 
lack of space on the diskette for the new records, the DOS 
error FILE TOO LARGE is returned, when reading a record from 
a relative file whose record number is higher than the 
current High record number, the DOS error RECORD NOT PRESENT 
is returned to the error channel. 
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1.5.11 Home Accounting with Relative Data Storage 

A complete example of problem solving using relative files 
offers you a good insight into the organization of relative 
file processing. It can be used by most readers of this 
book. Few examples of relative file usage have been 
explained elsewhere, so here is such a program. 

In this application, individual accounts are numbered. This 
account number is used as a key to the corresponding 
records. 

This provides that each account contain a clear text 
description. The first field of each record is this account 
name. Twenty characters are allowed for the name. 

Since information is needed for each month, twelve fields 
are necessary for each record. These summary fields are each 
ten characters long. The account summaries are stored as 
strings which are converted to numbers with the help of the 
VAL function. The record consists of 141 characters (twenty 
for the name, 12*10 for the month summaries and one for 
RETURN). 



The layout of the records follows: 



Field 


Length 


Position 


Account name 


20 


1-20 


January summary 


10 


21-30 


February summary 


10 


31-40 


November summary 


10 


121-130 


December summary 


10 


131-140 



The maximum number of accounts per year is set to twenty. 
Therefore, a year's file consists of twenty records of 141 
bytes each. 

We also specified the functions that this program is to 
perform. 

* Create accounts 

* Post to accounts 

* Display summary by Account 

* Display account names 

* Display Monthly summary 
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Display Year-end summary 



Create accounts: 



This function creates the file for a year, it asks for the 
number and names of the accounts. The records are then 
written with the account name and the summary fields are set 
to zero. Should a data file already exist with the sane 
name, the old file is deleted. 



Post to accountss 

This function asks for the account number to be posted and 
whether the posting is an income or expense. For example, 
the category SALARY" is an income account and the category 
RENT is an expense account. 

After this, the current contents of the account are 
displayed. When you post the appropriate amount, which is 
always positive, if you are making a correction entry, use a 
negative amount. 

Now the updated contents are displayed. You may then make a 
new entry. 



Producing account summary: 



After entering the account number, the summary of the twelve 
months and the year's total are displayed for that account. 

Display account names: 



Each account is determined by its number. Should you forget 
a number, this function lists all accounts by name and 
corresponding number. 



Display monthly summary: 



Here the income or expenses of all accounts are displayed. 
The monthly balance of all accounts is also displayed. 



Display year-end summary: 



This function shows the summary of all accounts and the 
year-end balance. This display takes some time, since all 
monthly fields of each record must be read and totaled, it 
accesses the entire file. 

Here's the program listing: 
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100 POKE 53280, 2:POKE53281, 2 :PRINTCHR$ ( 158 ) ; : 

BL$='l ":DIMS<12) 
110 GOSUB 2050 

120 INPUT"CURRENT YEAR ! ";Y$ 

130 IF Y$<"1984"ORY$>"1999"THENPRINTCHR$(145) ; :GOTO120 
140 GOSUB 2050 

150 PRINT" SELECT A FUNCTIONS 



160 PRINT" " : PRINT 

170 PRINT" -1- CREATE ACCOUNTS" 

180 PRINT" -2- POST TO ACCOUNTS" 

190 PRINT" -3- ACCOUNT SUMMARY" 

200 PRINT" -4- DISPLAY ACCOUNT NAMES" 

210 PRINT" -5- MONTHLY SUMMARY" 

220 PRINT" -6- YEAR SUMMARY" : PRINT 

230 PRINT" -0- END PROGRAM" 



240 GETX$:IFX$<"0"ORX$>"9"THEN240 
250 IFX$O"0"THEN270 
260 END 

270 ONVAL ( X$ ) GOSUB 290,560,920,1160,1370,1720 
280 GOTO 140 

290 REM ======================== 

300 REM CREATE ACCOUNTS 

310 REM ======================== 

320 GOSUB 2050 

330 PRINT" CAUTION 1 ANY PREVIOUS FILE FOR THIS YEAR" 

340 PRINT"WILL BE ERASED! ": PRINT 

350 PRINT"CONTINUE ( Y/N) ?" 

360 GETX$:IFX$O"Y"ANDX$O"N"THEN360 

370 IFX$="Y"THEN390 

380 CLOSElsCLOSE2: RETURN 

390 OPEN2,8,15,"S:ACCOUNTS"+Y$ 

400 OPEN1 ,8,2, "ACCOUNTS"+Y$+" ,L , "+CHR$ ( 141 ) 

410 GOSUB 2050 

420 INPUT"HOW MANY ACCOUNTS (1-20): " ;AN 
430 PRINT 

440 IFAN<10RAN>20THENPRINTCHR$(145) ; :GOT0420 
450 FORI=lTOAN 

460 PRINT"NAME OF ACCOUNT NO."; I;": "; 
470 INPUTAN$ 

480 IFLEN(AN$)>20THENPRINTCHR$(145) ;sGOTO420 
490 RC$=AN$+LEFT$(BL$,20-LEN(AN$) ) 
500 FORX=lT012 

510 RC$=RC$+STR$(0)+LEFT$(BL$,8) 

520 NEXTX 

530 PRINT! 1 ,RCS 

540 NEXT I 

550 CLOSE l:CLOSE 2s RETURN 
560 REM ============= 

570 REM POSTING 
580 REM ============= 

590 GOSUB2050 

600 INPUT"ACCOUNT NUMBER" ; AN 

610 I FAN< 10RAN> 20THENPRINTCHR$ (145) ; SGOTO600 
620 GOSUB2140 

630 PRINT" " 
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640 PRINT"NO.";AN;" - ";AN$ 

650 PRINT" •' 

660 PRINT"INCOME OR EXPENSE ( I/E) ?" 

670 PRINT" " 

680 GETX$8lFX$O"I"ANDX$O"E"THEN680 

690 INPUT"MONTH (1-12) : ";M 

700 IPM<10RM>12THENPRINTCHR$(145) ; :GOTO690 

710 PRINT" .-" 

720 PRINT"OLD CONTENTS : ";S(M) 

730 PRINT" « 

740 INP0T"POSTING AMOUNT : ";PA 

750 PRINT" » 

760 IFX$="I"THENS(M)=S(M)+PA:GOTO780 
770 S(M)=S(M)-PA 

780 PRINT"NEW CONTENTS : ";S(M) 

790 PRINT" » 

800 RC$=AN$+LEFT$(BL$,20-LEN(AN$) ) 
810 F0RI=1T012 
820 S$=STR$(S(I) ) 

830 RC$=RC$+S$+LEFT$(BL$,10-LEN(S$) ) 
840 NEXTI 

850 PRINT# 2 , " P"+CHR$ ( 2 ) +CHR$ (AN) +CHR$ ( ) +CHR$ ( 1 ) 
860 PRINT#1,RC$ 
870 CLOSEl:CLOSE2 

880 PRINT" FURTHER POSTING (Y/N)?" 
890 GETX$:IFX$O"Y"ANDX$O"N"THEN890 
900 IFX$<>"Y"THENGOSUB2050:GOTO600 
910 RETURN 

920 REM =================== 

930 REM ACCOUNT SUMMARY 
940 REM =================== 

950 GOSUB2050 

960 INPUT"ACCOUNT NUMBER : " ; AN 

970 IFAN<lORAN>20THENPRINTCHR$(145) ; :GOTO960 

980 GOSUB2140 

990 GOSUB2050sPRINTCHR$(145) ;CHR$(145) ; 

1000 PRINT" " 

1010 PRINT"NO.";AN;" - " ;AN$ 

1020 PRINT" " 

1030 PRINT "MONTH TOTAL" 

1040 PRINT" 

1050 TL=0 

1060 FORI=lT012 

1070 PRINTI;TAB(8) ;S(I) 

1080 TL=TL+S(I) 

1090 NEXTI 

1100 PRINT" >• 

1110 PRINT"TOTAL" ;TAB( 8 ) ;TL 
1120 PRINTTAB( 9 ) ; "=======" 

1130 PRINT" RETURN FOR MORE" 
1140 INPUTX$ 

1150 CLOSE1 : CLOSE2 : RETURN 
1160 REM ===================== 

1170 REM DISPLAY ACCOUNT NAMES 
1180 REM ===================== 
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1190 GOSUB2050 

1200 0PEN1 ,8 ,2 , "ACCOUNTS"+Y$+" ,L, "+CHR$( 141 ) 
1210 OPEN2,8,15 
1220 1=1 

1230 PRINT# 2 , " P"+CHR$ ( 2 ) +CHR$ ( I ) +CHRS ( ) +CHR$ ( 1 ) 

1240 RC$="" 

1250 FORX=lTO20 

1260 GET#1,X$ 

1270 RC$=RC$+X$ 

1280 NEXTX 

1290 INPUT#2,X 

1300 IFX=50THEN1340 

1320 PRINTI;" - ";RC$ 

1330 1=1+1 :GOTO1230 

1340 PRI NT" RETURN FOR MORE" 

1350 INPUTXS 

1360 CLOSE1 :CLOSE2 : RETURN 
1370 REM =============== 

1380 REM MONTH SUMMARY 
1390 REM =============== 

1400 GOSUB2050 

1410 INPUT"MONTH : ";M 

1420 GOSUB2050 

1430 PRINT" " 

1440 PRINT"NO. NAME CONTENTS" 

1450 PRINT" " 

1460 OPEN1 ,8,2, "ACCOUNTS"+Y$+" ,L, n +CHR$ ( 141 ) 

1470 OPEN2,8,15 

1480 TL=0 

1490 FORAN=lTO20 

1500 AN$="":S$="" 

1510 PRINT# 2 , "P"+CHR$ ( 2 ) +CHR$ ( AN ) +CHRS ( ) +CHR$ ( 1 ) 

1520 FORI=lTO20 

1530 GET#1,X$ 

1540 AN$=AN$+X$ 

1550 NEXTI 

1560 INPUT#2,F 

1570 IFFO50THEN1590 

1580 GOTO1670 

1590 PRI NT# 2 , " P " +CHR$ ( 2 ) +CHR$ ( AN ) +CHR$ ( ) +CHR$ ( 20+ ( M- 1 ) * 

1600 FORI=lTO10 

1610 GET#1,X$ 

1620 SS=S$+X$ 

1630 NEXT I 

1640 TL=TL+VAL(S$) 

1650 PRINT AN;TAB( 6) ;AN$ ;TAB( 26) ;S$ 
1660 NEXT AN 

1670 PRINT" " 

1680 PRINT" TOTAL BALANCE" ; TAB ( 26 ) } STR$ ( TL) 
1690 PRINTTAB( 26) ;"=======" 

1700 PRINT" RETURN FOR MORE"; 

1710 INPUTXS tCLOSEl :CLOSE2 :RETURN 

1720 REM ============== 

1730 REM YEAR SUMMARY 
1740 REM ============== 
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1750 GOSUB2050 

1760 OPENl,8,2 / ,, ACCOONTS"+Y$ + ",L, n +CHR$(141) 
1770 OPEN2,8,15 

1780 PRINT" it 

1790 PRINT"N0. NAME YEAR BALANCE" 

1800 PRINT" n 

1810 TL=0 

1820 FOR AN=lTO20 

}l ?2 PR J NT# 2 ' " P " +CHR$ ( 2 ' +CHR$ < AN ' + CHR$ ( ) +CHR$ ( 1 ) 

1840 RC$="" 

1850 PORI=lTO140 

1860 GET#1,X$ 

1870 RC$=RC$+X$ 

1880 NEXTI 

1890 INPUT#2,F:IFF=50THEN1980 

1900 AN$=LEFT$(RC$,20) 

1910 YB=0 

1920 FORI=lTO10 

1930 YB=YB+VAL(MID$(RC$,20+(I-1)*10,10)) 
1940 NEXTI 
1950 TL=TL+YB 

1960 PRI NTAN ; TAB ( 6 ) ; AN$ ; TAB( 26 ) ; YB 
1970 NEXTAN 

1980 PRINT" it 

1990 CLOSEl:CLOSE2 

2000 PRINT-TOTAL BALANCE" ; TAB( 26 ) ; TL 
2010 PRINTTAB ( 26 ) ;"=======" 

2020 PRINT"RETURN FOR MORE" 
2030 INPUTX$ 
2040 RETURN 

2050 REM =================== 

2060 REM PROGRAM HEADING 
2070 REM =================== 

2080 PRINTCHR$(147) ; 

2090 PRINTTAB ( 4 ) ;"==========================-=« 

2100 PRI NTTAB ( 4 ) ; " H OME ACCOUNTING" 
2110 PRINTTAB ( 4 ) ;"============================« 

2120 PRINT: PRINT 
2130 RETURN 

2140 REM ================ 

2150 REM READ ACCOUNT 
2160 REM ================ 

2170 OPEN1 ,8 ,2, "ACCOUNTS"+Y$+" ,L, "+CHR$ ( 141 ) 
2180 OPEN2,8,15 

2190 PRINT! 2 , " P"+CHRS ( 2 ) +CHR$ ( AN) +CHR$ ( ) +CHRS ( 1 ) 

2200 RC$="" 

2210 FORI=lTO140 

2220 GET#1,X$ 

2230 RC$=RCS+X$ 

2240 NEXT I 

2250 INPUT* 2, F 

2260 IFFO50THEN2300 

2270 PRINT" YEAR FILE OR ACCOUNT NOT FOUND! " : PRINT 
2280 PRINT" RETURN FOR MORE" : INPUTX$ 
2290 CLOSEl:CLOSE2:RETURN 
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2300 AN$=LEFT$(RC$,20) 

2310 TL=0 

2320 F0RI=1T012 

2330 S(I)=VAL(MID$(RC$,20+(I-1)*10,10) ) 
2340 TL=TL+S(I) 
2350 NEXT I 
2360 RETURN 



Program Documentation: 
Initialization: 

100 Screen and character color set; blank character 

string defined; variable for account summaries 
dimensioned. 

110-130 Program heading displayed and current year read. 
140-280 Program functions displayed and choice read; 
corresponding subprogram called. 



Establish Accounts: 



390-400 Any existing files of this year are erased and the 

new file is opened. 
480 Account name is placed in positions 1-20 of the 

record RC$. 

500-540 Month summaries are set to zero and placed in the 

record as string variables. 
530 The record is transferred with a trailing RETURN. 



Posting: 

590 The routine "Read Account" is called. This routine 

places the month summaries of the account in the 
variables S(l) to S(12). 

800 Account name is placed in the record. 

810-840 Account summary is placed in the record. 

850-860 Record is transferred. 



Account Summary: 



980 Desired account is read and the month summaries' 

are placed in variables S(l) to S(12). 

1050-1090 Month summaries are displayed and the total (TL) 
is added up. 

1110 Total displayed. 



Display Account Names: 



1220 Account number is initialized. 

1230 The head is positioned over the corresponding 
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record. 

1240-1280 Account name is read out of the record in RC$. 
1290-1300 If RECORD NOT PRESENT is sent over the error 

channel (error 50), the routine is broken off. 
1320 Account number and name are displayed. 



Month Summary; 



1490-1660 Loop to read all accounts. 
1510 Position head over record. 

1520-1550 Read account name. 

1560-1580 Determine if account exists; stop if all twenty 

accounts have been defined. 
1590 Position over summary field of the desired month. 

1600-1630 Read the month summary. 
1640 Add month summary to total. 

1650 Account number, account name and month summary are 

displayed. 
1680 Total balance displayed. 



Year Summary: 



1820-1970 Loop to read all accounts 
1830 Position head over record. 

1850-1880 Complete record read into RC$. 
1890 Test if RECORD NOT PRESENT. 

1900 Get account name from record. 

19 20-1940 Read month summary, convert to numerical form and 

add to year summary (ys). 
1950 Year summary (YS) is added to total (TL). 

1960 Account number, account name and year summary 

displayed. 

2000 Total balance (month balance) displayed. 



Read Account: 



2190 Position over record given in AN. 

2210-2240 Read record into RCS. 

2250-2260 Test if RECORD NOT PRESENT. 

2300 Account name read from record. 

2320-2350 Month summaries read from record, converted to 

numerical form and placed into the table S(l) to 

S(12). 
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1.6 Disk Error Messages and their Causes 

If you cause an error while working with the disk drive, the 
drive signals this by blinking the red LED. The LED blinks 
until you read the error channel of the disk drive or until 
you send a new command. First we want to see how to read the 
error message from the disk drive. 

In order to do this, the error/command channel must be 
opened with the secondary address 15: 

100 OPEN 15,8,15 

110 INPUT#15,A,B$,C,D 

120 PRINT A,B$,C,D 

If no error has occurred, the following is displayed: 

OK 

The first number is the error number, in this case zero, 
which means no error has occurred. Next follows the error 
message (variable B$). The variables C and D contain the 
track and sector numbers, respectively, in which the error 
occurred, which is dependent on the type of error (mainly 
associated with hardware errors and block-oriented 
commands) . 

This routine accomplishes the same function: 
100 OPEN15,8,15 

110 GET#15,A$:PRINTA$ ; : IFSTO64THEN110 
00, OK, 00, 00 

Here characters are read from the error channel until the 
end is recognized (status =64). This gives the error message 
exactly as' the BASIC 4.0 command 

PRINT DS$ 

When using BASIC 4.0, variables DS$ and DS are reserved 
variables which contain the complete error message and error 
number. Each access of these variables gives the error 
status of the last disk operation. Unfortunately, the 
Commodore 64 does not use BASIC 4.0, so these variables are 
meaningless in Commodore 64 BASIC (BASIC 2.0). 

Next follows the list of error messages that the DOS can 
recognize: 



00, OK, 00 ,00 

This message occurs when the last disk operation was error 
free or if no command or data was sent after the last 
error message. 
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01, FILES SCRATCHED,XX,00 

This is the message after a SCRATCH command. The number XX 
denotes the number of filed that were erased, since this 
is not really an error message, the LED does not blink. 

20, READ ERROR, TT.SS 

This error means that the 'header' of a block was not 
found, it is usually the result of a defective diskette. 
TT and SS designate the track and sector in which the 
error occurred. Remedy: change defective diskette. 

21, READ ERROR ,TT,SS 

This is also a read error. The SYNC (synchronous) marker 
of a block was not found. The cause may be an unformatted 
disk, or no disk in the drive. This error can also be 
caused by a misaligned read/write head. Remedy: Either 
insert a diskette, format the disk, or have the read/write 
head aligned. 

22, READ ERROR, TT,SS 

This error message means that a checksum error has 
occurred in the header of a data block, which can be 
caused by the incorrect writing of a block. 

23, READ ERROR, TT,SS 

The error implies that a data block was read into the DOS 
buffer, but a checksum error occurred. One or more data 
bytes are incorrect. Remedy: Save as many files as 
possible onto another diskette. 

24, READ ERROR, TT,SS 

This error also results from a checksum error in the data 
block or in the preceding data header. Incorrect bytes 
have been read. Remedy: same as error 23. 

25, WRITE ERROR, TT,SS 

This error is actually a VERIFY ERROR. After writing every 
block the data is read again checked against the data in 
the buffer. This error is produced if the data are not 
identical. Remedy: Repeat the command that caused the 
error. If this doesn't work, the corresponding block must 
be locked out from further use with the block-allocate 
command . 

26, WRITE PROTECT 0N,TT,SS 

An attempt was made to write to a disk with a write 
protect tab on it. Remedy: Remove write protect tab. 

27, READ ERROR, TT,SS 

A checksum error occurred in the header of a data block. 
Remedy: Repeat command or rescue block. 



73 



Anatomy of the 1541 Disk Drive 



28, WRITE ERROR, TT,SS 

After writing a data block, the SYNC characters of the 
next data block were not found. Remedy: Format disk again, 
or exchange it. 

29, DISK ID MISMATCH , TT , SS 

The ID (two character disk identification) in the DOS 
memory does not agree with the ID on the diskette. The 
diskette was either not initialized or there is an error 
in the header of a data block. Remedy: Initialize 
diskette. 

30, SYNTAX ERROR, 00, 00 

A command was sent over the command channel that the DOS 
could not understand. Remedy: Check and correct command. 

31, SYNTAX ERROR, 00, 00 

A command was not recognized by the DOS, for example, the 
BACKUP command (Duplicate) on the 1541. Remedy: Do not use 
the command . 

32,SYNTAX ERROR, 00, 00 

The command sent over the command channel was longer than 
40 characters. Remedy: Shorten command. 

33, SYNTAX ERROR, 00, 00 

A wildcard ('*' or '?') was used in an OPEN or SAVE 
command. Remedy: Remove wildcard. 

34, SYNTAX ERROR, 00, 00 

The DOS cannot find the filename in a command. This may be 
because a colon was forgotten after the command word. 
Remedy: Check and correct command. 

39, FILE NOT FOUND, 00 ,00 

User program of type 'USR' was not found for automatic 
execution. Remedy: Check filename. 

SO, RECORD NOT PRESENT, 00 ,00 

A record was addressed in a relative data file that has 
not yet been written. When writing a record this is not 
really an error. You can avoid this error message if you 
write the highest record number of the file with CHR$(255) 
when initializing it. This error will no longer occur upon 
later access. 

51, OVERFLOW IN RECORD, 00 ,00 

The number of characters sent when writing a record in a 
relative file was greater than the record length. The 
excess characters are ignored. 

52, FILE TOO LARGE, 00, 00 

The record number of a relative file is too big; the 
diskette does not have enough capacity. Remedy: Use 
another diskette or reduce the record number. 
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60, WRITE FILE OPEN, 00 ,00 

An attempt was made to OPEN a file that had not previously 
been CLOSEd after writing. Remedy: Use mode ' M' in the 
OPEN command to read the file. 

61, PILE NOT OPEN, 00,00 

A file was accessed that had not been OPENed. Remedy: Open 
the file or check the filename. 

62, FILE NOT FOUND, 00,00 

An attempt was made to load a program or open a file that 
does not exist on the diskette. Remedy: Check the 
filename. 

63, FILE EXISTS, 00, 00 

An attempt was made to establish a new file with the name 
of a file already on the diskette. Remedy: Use a different 
filename or @: (to replace the old file). 

64, FILE TYPE MISMATCH, 00, 00 

The file type use in the OPEN command does not agree 
with the file type in the directory. Remedy: Correct 
file type. 

65, NO BLOCK, TT,SS 

This error message is given in association with the BLOCK- 
ALLOCATE command when the specified block is no longer 
free. In this case, the DOS automatically searches for a 
free block with a higher sector and/or track number and 
gives these values as the track and sector number in the 
error message. If no block with a greater number is free, 
two zeroes will be given. 

66, ILLEGAL TRACK OR SECTOR,TT,SS 

If you attempt to use a block with the block commands that 
does not exist, this error is returned. 

67, ILLEGAL TRACK OR SECTOR,TT,SS 

The track-sector combination of a file produces a non- 
existent track or sector. 

70, NO CHANNEL, 00, 00 

An attempt was made to open more files than channels 
available or a direct access channel is already reserved. 

71, DIR ERROR, TT,SS 

The number of free blocks in the DOS storage does not 
agree with the BAM. Usually this means the disk has not 
been initialized. 

72, DISK FULL, 00, 00 

Fewer than three blocks are free on the diskette or the 
maximum number of directory entries have been used (144 on 
the VIC 1541) . 



75 



Anatomy of the 1541 Disk Drive 



73, CBM DOS V.26 1541,00,00 

The message is the power-up message of the VIC 1541. As an 
error message, it appears when an attempt is made to write 
to a disk that was not formatted with the same DOS 
version, for example, the forerunner of the CBM 4040, the 
CBM 2040 (DOS version 1.0). 

74, DRIVE NOT READY, 00, 00 

When one attempts to use the disk without a diskette in 
the drive, this error message is returned. 

7 5, FORMAT SPEED ERROR, 00, 00 

This error message occurs only on the CBM 8250. It 
indicates a deviation from the normal revolutions per 
minute while formatting. 
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1.7 Overview of Commands with a Comparison of BASIC 2.0 
BASIC 4.0 - DOS 5.1 



BASIC 2.0 


BASIC 4.0 (abbrev) 


DOS 5.1 


OPEN - Mode 'A' 


APPEND (aP) 






BACKUP (bA) 




L0AD"$",8 & LIST 


CATALOG (CA) 


8$ or >$ 


Vt a 1 jdat-al 
V ^sllUaLc J 


COLLECT ( COL) 


@V or >V 




CONCAT (conC) 




C(opy) 


COPY (COP) 


@C:.. or 


CLOSE . . . 


DCLOSE (dC) 




LOAD"...", 8 


DLOAD (dL) 


®file or 


OPEN ...,8,... 


DOPEN (dO) 




OPEN 1,8,15 ... 


DS$, DS 


@ or > 


SAVE".. .",8 


DSAVE (dS) 




N(ew) 


HEADER (hE) 


@N:.. or 


I(nitialize) 


K initialize) 


91 or >I 


P 


RECORD (reC) 




R(ename) 


RENAME (reN) 


@R:.. or 


S(cratch) 


SCRATCH (SC) 


@S:.. or 



This table lists the different versions of BASIC. The DOS 
5.1 is found on the TEST/DEMO disk and will be described in 
section 4.2.1. 

The essential difference between BASIC 2.0 and BASIC 4.0 is 
that with BASIC 2.0, each command is executed by the disk 
control system (DOS) and must be sent over channel 15. The 
disk commands of BASIC 4.0 manage this channel themselves 
(with the exception of INITIALIZE). For example, the command 
HEADER D0,"DISK1",IHJ generates the same sequence of 
commands necessary in BASIC 2.0, namely: 

OPEN 1,8,15,"N:DISK1,HJ" 
CLOSE 1 



Here are are the specifics of the BASIC 4.0 commands: 
Note the following parameters: 
lfn = logical file number 

dn = drive number - drive (DO) or drive 1 (Dl) with 

a double drive, or DO for a single drive 
da = device address of the disk drive (04 to U31) 

Information in parentheses is optional. The standard 
parameters DO and U8 will be used (meaning Drive and Unit 
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APPEND ; 

This command allows data to be added to a sequential file, 
which is accomplished in BASIC 2.0 with the OPEN-command 
mode A. 

This command has the following format: 

APPEND#lf n , "filename" ( ,Ddn,Uda) 

For example, should the sequential file "SEQU.l" be on drive 
0, the following statements are necessary to add a data 
record to it: 

100 APPENDtl," SEQU.l" ,D0 
110 PRINT#1,X$ 
120 CLOSE 1 



BACKUP : 

With this command, a complete diskette can be copied. The 
BACKUP command can only be used with a dual disk drive (such 
as the 4040), however. Notice the format of this command: 

BACKUP Ddn TO Ddn(,Uda) 

It is important that either DO to Dl or Dl to DO be given. 
An example: 

The diskette in drive 1 is supposed to be copied onto the 
disk in drive 0. To this end, give the following command: 

BACKUP Dl TO DO 



CATALOG : 

The CATALOG command of BASIC 4.0 has the advantage that the 
program in the computer's memory is not erased, as is true 
in BASIC 2.0. The format of the command: 

CATALOG (Ddn,Uda) 

If no drive number is given for a double drive, the contents 
of both drives are given. With a single drive, CATALOG DO is 
assumed. An example: 

CATALOG DO 

The contents of the disk in drive will be displayed. 



COLLECT : 

This command corresponds with the VALIDATE command of BASIC 
2.0. The syntax of this command looks like this: 

COLLECT (Ddn) 
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CONCAT : 

CONCAT concatenates sequential files, in which one file is 
to be made from the data of two files. The format: 

CONCAT (Ddn,)"f ilel" TO ( Ddn, ) "f ile2" (ON Uda) 

Suppose you want to combine the data of the files "SE0U.2" 
in drive and "SEQU.l" in Dl. To accomplish this, issue the 
following command: 

CONCAT D0,"SEOU.2" TO Dl,"SE0U.l" 



COPY : 

With this command files can be copied from one drive to the 
other (except relative files). The command is useless with a 
single drive. The syntax looks like this: 

COPY (Ddn, )("f ilel") TO (Ddn, ) ( "f ile2" ) 

To copy all files (for example, from drive to drive 1), 
use the following command: 

COPY DO TO Dl 

DC LOSE: 

The command DCLOSE has the same function as the simple CLOSE 
command, with the following exceptions: 

DCLOSE closes all files 

DCL0SE#1 closes file number 1 

DCLOSEjtl ON U9 closes the logical file #1 on device 
address 9 

DCLOSE U8 closes all files on device address 8 

The command has the following syntax: 
DCLOSE (#lfn) (ON Uda) 

DLOAD : 

The command DLOAD has the advantage that the standard device 
address 8 used. The format: 

DLOAD "program" (,Ddn)(,Uda) 

For instance, if you want to load the program "PRG.2" from 
drive or from a single drive, give the following command: 

DLOAD "PRG.2" 

Drive (DO) is the default value. 
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DOPEN : 

This command of BASIC 4.0 is very comprehensive. The 
following format verifies this: 

j 

DOPEN#lfn,"f ile"( ,Ddn) ( ,Uda) ( ,f ileparameter) 

The peculiarity of this method of opening is the file 
parameter. There are two file parameters, that have the 
following function: 



: * L' -parameter : 'W -parameter : Mode of operation 



YES 


NO 


: A relative file is 




: opened. 


NO 


YES 


: A sequential file is 






: opened for writing. 


NO 


NO 


: A file is opened for 






: reading(REL,SEO,PRG,USR) 



In addition to the ' L' parameter the record length must be 
given (such as L80). A DOPEN command of this type looks like 
this: 

DOPEN# 1 , "FILE .REL" , DO , L80 

Here a relative file is opened with a record length of 80 
bytes. The declaration of the file parameter is only 
necessary once, at the establishment of the file. All later 
openings of the file can occur without the parameter 
declaration. 



DSS S PS : 

After a disk error, the complete error message can be 
displayed with PRINT DS$ or just the error number with PRINT 
DS. Of course, the error can be read within a program and 
the appropriate branch made. For example: 

100 IF DS = 26 THEN GOTO ... 



DSAVE : 

A program can be saved on disk with this command. The 
following format is to be noted: 

DSAVE ( Ddn, ) "prograroname" ( ,Uda) 



HEADER : 

A disk is formatted with the HEADER command in BASIC 4.0. It 
corresponds to the NEW command in BASIC 2.0. The syntax of 
the command: 
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HEADER "diskname",DO,Iid(U,da) 
or HEADER Ddn,"diskname",Iid 

Here there are two possibilities to designate the drive. The 
id is the diskette identification, if it is not given, the 
disk is presumed to be formatted and is merely given a new 
name and all files are erased. 



RECORD ; 

This command corresponds to the position command of BASIC 
2.0 (DOS 2.6). The read/write head can be positioned over a 
record in a relative file, without the need to send the 
position over channel 15. The syntax of this command 
illustrates how easy this positioning is: 

RECORD* 1 f n, rn (, bp) 

The logical file number is obtained from the opened relative 
file, 'rn' is the record number (1-65535) and 'bp' is the 
position within this record (1-254). 

An example: You want to position the head over the twelfth 
byte of the 128th record of a relative file opened with the 
logical file number 2. The following command accomplishes 



RECORD#2,128,12 



RENAME: 

This RENAME is similar to the RENAME of BASIC 2.0. The 
format of this command: 

RENAME (Ddn,)"old name" TO "new name"(,Uda) 

SCRATCH : 

This method of erasing files is essentially easier because 
files can be erased with one command. The format of this 
command : 

SCRATCH (Ddn,)"file"(,uda) 

After entering a SCRATCH command the message "ARE YOU SURE?" 
which allows the command to be stopped. If the file is 
really supposed to be erased, answer 1 y" else 'N'. After 
erasing the file, the message "FILES SCRATCHED" appears on 
the screen. 
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Chapter 2: Advanced Disk Programming 



2.1 Direct Access of any Block of the Diskette 

When handling files and programs on the diskette, as des- 
cribed in Chapter 1, we didn't have to concern ourselves 
with the organization on the diskette, because the disk 
operating system (DOS) took care of these details for us. 

But the DOS offers the capability of accessing each 
individual block on the diskette. This gives us a lot of 
flexibility - ranging from manipulation of individual files 
to creating completely new data structures. 

In order to access a block directly, a channel is OPENed to 
a data buffer within the 1541 disk drive. It is over this 
channel that data is transmitted. The data buffer serves as 
an intermediate storage place for the data that is read from 
the diskette or written to the diskette. In order to inform 
the DOS that we want to work with direct access commands, we 
use a special filename in the OPEN command: 

OPEN 1,8,2,"#" 

Using this command, logical file number 1 on device 8 (the 
disk drive), is associated with a direct access file. 
Channel 2 serves to transmit data to and from the disk 
drive. The channel number (secondary address in the OPEN 
command) may be 2 through 14. Channels and 1 are reserved 
for LOAD and SAVE and channel 15 is the command channel. The 
choice of a secondary address is arbitrary. You may not use 
the same secondary address simultaneously, since the DOS, 
upon encountering the se'cond OPEN command with the same 
secondary address, closes the previous file using this 
channel number. This also occurs when working with 
sequential or relative files. 

This form of the OPEN command causes the DOS to search for 
a free data buffer and assign it to that channel. By using a 
GET# statement immediately after the OPEN we can find the 
buffer number that the DOS assigns: 

100 OPEN 1,8,2,"#" 

110 GETS 1 , A$ 

120 PRINT ASC(AS+CHR$(0) ) 

RUN 

3 

In this case, buffer three was assigned. The buffer numbers 
range from to 4. Each buffer can hold 256 characters of 
data. The buffers are located in the following memory 
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locations in the VIC 1541: 

Buffer number Memory location 

$300-$3FF, 768-1023 

1 $400-$4FF, 1024-1279 

2 $500-$5FF, 1280-1535 

3 S600-$6FF, 1536-1791 

4 $700-$7FF, 1792-2047 

Buffer 4 is normally unavailable, because the BAM is stored 
there, if we work with sequential or relative files at the 
same time, buffer 3 is also unavailable, because it is used 
for the directory, if we want to associate a specific data 
buffer for direct access, we can assign it with the OPEN 
command. 



OPEN 1,8,2,"#3" 

This associates buffer 3 ($600-$6FF) with channel number 2, 
assuming it is still free. Unless you have a pressing reason 
to use a specific buffer, you should leave the choice of the 
buffer up to the DOS, because the choice of a definite 
buffer increases the possibility that it will not be 
available. 

After opening a channel, you should check the error channel. 
130 OPEN 15,8,15 

140 GET#15, A$ : PRINT A$ ; : IF ST<>64 THEN 140 

If the buffer is already in use, you will receive the error 
message 

70, NO CHANNEL, 00, 00 

If no other files are open, you can open up to 4 channels 
for direct access. The following example illustrates this: 

10 OPEN 1,8, 15, "10" : 1=2 : REM ERROR CHANNEL 

20 OPEN 2,8,2, "#" : GOSUB 100 

30 OPEN 3,8,3, "#" : GOSUB 100 

40 OPEN 4,8,4, "#" : GOSUB 100 

50 OPEN 5,8,5, "#" : GOSUB 100 

60 OPEN 6,8,6, "#" : GOSUB 100 

70 END 

100 GET#I,A$:PRINT ASC( A$+CHR$ ( ) ) 
110 1=1+1 : REM BUFFER NUMBER 

120 GET#1,A$ : PRINT AS; : IF ST<>64 THEN 120 
130 RETURN 



When RUN, the above program produces the following output: 
3 
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00, OK, 00, 00 

2 

00, OK, 00, 00 
1 

00, OK, 00, 00 


00, OK, 00, 00 
199 

70, NO CHANNEL, 00, 00 

As you see, attempting to open a fifth channel for direct 
access fails. 

Transmitting data to and from the buffer usually takes place 
using the GET# , INPUTS and PRINTS statements. 

If a buffer contains pure text (alphanumeric data) which is 
not longer than 88 characters and is separated using CR 
(Carriage Return, CHR$(13)), it can be read using INPUTS . 
However, if the buffer contains control characters or the 
text is separated using commas or colons, the INPUTS 
statement fails. Then we must use the GETS statement, which 
retrieves only one character at a time. GETS does not allow 
null values (CHR$(0)) to be read. In this case, GEIS 
receives an empty string and you must check for this 
condition as below: 

100 GETS 2, AS s IF AS + THEN A$ = CHR$(0) 

A simpler alternative to the GETS statement is to use the 
statement INPUT*, as is described in section 4.3.1. Here you 
can declare how many characters are to be read into a 
string. It also handles null values (CHR$(0)). You can read 
almost the entire buffer (255 characters are possible) with 
one command. 

In the next section, all commands used for direct access are 
described in detail. Keep the following points in mind when 
using direct access commands. 

When using direct access commands, you must explicitly cause 
the blocks on the diskette to be read or written. The direct 
access commands are transmitted over command channel 15. The 
data that is read from or written to a buffer are 
transmitted over a separate channel that is associated with 
that buffer. Both channel 15 and the separate channel must 
be OPENed before transmission can begin. 

1) A PRINTS statement to command channel 15, sends a direct 
access command to the DOS. 

2) A PRINTS statement to channels 2 thru 14 sends data to a 
buffer. 

3) An INPUTS or GETS statement to command channel 15 re- 
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turns any error messages detected by the DOS. 

4) An INPUT! or GET* statement to channels 2 thru 14, reads 
the data from the buffer. 

If you are ready to work with the block commands and want to 
display individual blocks on the screen or change them, you 
can use the DOS monitor in section 4.6, which provides a 
simple and easy way of doing so. 
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2.2 The Direct Access Commands 



2.2.1 The Block-Read Command B-R 

The block-read command instructs the 1541 to read a block 
from the diskette into a buffer of a previously opened 
direct access file. The block-read command is sent over the 
command channel (secondary address 15) to the disk drive. 
The block-read command can be shortened to B-R. Because this 
command does not read the first byte of the block, you can 
substitute the command 01 to read a block. The command has 
the following syntax: 

Ul channelnumber drive track sector 

You must give the channel number that you used when OPENing 
the direct access file. Next follows the drive number, which 
is always zero for the VIC 1541, and then the track and 
sector numbers of the block you want to read. 

10 OPEN 1,8,15 

20 OPEN 2,8,2, "#" 

30 PRINT#1, "Ul 2 18 0" 

This reads the contents of track 18 sector into the buffer 
belonging to channel 2. Now you can read the data from this 
buffer with GET#2. 

40 GET#2, AS,B$ 

50 PRINT ASC(A$), ASC(B$) 

18 1 

Now we have read and displayed the first two bytes in the 
buffer. Sector of track 18 contains a pointer to the first 
directory block (track and sector) and the BAM for the 
diskette. 

In the demo program DISPLAY TSS on the TEST/DEMO diskette 
(section 4.2.7) this command is used in order to read the 
BAM from the disk and to graphically display each record on 
the disk. 

We can read all 256 bytes of the block from the buffer with 
the GET# statement; in our example we will read the diskette 
name and ID from position 144. 

The blocks which comprise a file are chained to each other. 
The first two bytes of each file block contains a pointer to 
the track and sector of the following block. Using this 
information, you can piece together the usage of disk space 
for a file. A track pointer of zero indicates the last 
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block of the file and the pointer which usually contains the 
sector number now contains the number of bytes of the last 
block which are part of this file. The first sector of a 
file can be read with our program in section 4.1.1. The 
following small program displays all of the remaining tracks 
and sectors that are part of the file. 

100 OPEN 1,8,15 

110 OPEN 2,8,2, "#" 

120 INPUT "TRACK AND SECTOR ";T,S 

130 PRINT#1,"U1 2 0";T;S 

140 GET#2, T$, S$ 

150 T = ASC(T$+CHR$(0) ) : S = ASC(S$+CHR$ ( 0) ) 
160 IP T=0 THEN CLOSE 2 : CLOSE 1 : END 
170 PRINT " TRACK ";T," SECTOR" ; S 
180 GOTO 130 

Enter 18 and as track and sector to follow the blocks for 
the BAM and directory. 



2.2.2 The Block- Pointer Command B-P 

The diskette name is located starting at position 144 of 
track 18, sector 0. Using the above example, we have to read 
the first 143 bytes of the buffer in order to be positioned 
at the diskette name. But the DOS has an easier way to do 
this. To access any desired byte of a buffer, you can use 
the block-pointer command. Using the block-pointer command 
the DOS moves to an exact position within the buffer. The 
block-pointer command can be shortened to B-P. The syntax 
is the following: 

B-P channelnumber position 

Now we can read the diskette name directly: 

100 OPEN 1,8,15 

110 OPEN 2,8,2, "#" 

120 PRINT#1,"U1 2 18 0" 

130 PRINT#1,"B-P 2 144" 

140 FOR I = 1 TO 16 : REM MAXIMUM LENGTH 
150 GET# 2 , A$ : IF A$=CHR$(160) THEN 170 
160 PRINT A$j : NEXT 
170 CLOSE 2 : CLOSE 1 

Here we first read the block, set the buffer pointer to 
position 144 and then read and print the diskette name which 
has a maximum length of 16 characters. A shifted space 
(CHR$(160)) indicates the end of the diskette name. 

The bytes in the buffer are numbered through 255, the 
first byte having the number 0. The buffer pointer is auto- 
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roatically set to zero by reading a block with 01. You can, 
for example, read byte number 2 after reading the name. You 
do this by setting the buffer pointer to this value. 

PRINT#1, "B-P 2 2" 



2.2.3 The Block-Write Command B-W 

The block-write command allows us to write the contents of a 
buffer to a desired block on the diskette. With this, you can 
write the block one has sent to the buffer within the disk 
drive . 

It is possible to read a block into the buffer with the 
block-read command, change some bytes, and then write the 
block back. The block-write command can be shortened to B-W. 
Because this B-W command writes the contents of the buffer 
pointer, one usually uses the U2 command which always sets 
the buffer pointer to 1. The syntax of the command is 
analogous to the B-R command: 

U2 channelnumber drive track sector 

100 OPEN 1,8,15 

110 OPEN 2,8,2, "#" 

120 PRINT#2, "TEST DATA" 

130 PRINT#1, "U2 2 10" 

140 CLOSE 2 : CLOSE 1 

Here the text "TEST DATA" will be written to the buffer 
associated to channel 2 and then written to track 1 sector 
of the diskette. The U2 command does not change the contents 
of the buffer. 

Here's an example of using the block-write command to change 
the diskette name that we read in the last section. For this 
we must fill the new name with 16 characters ending with a 
shifted spaces CHR$(160), so that we can write it to the 
disk. We will again use the block-pointer command to set the 
buffer pointer directly to the desired position within the 
buffer. 

100 OPEN 1,8,15 

110 OPEN 2,8,2, "#" 

120 PRINT#1,"U1 2 18 0" 

130 PRINT#1,"B-P 2 144" 

140 A$="NEW FILE NAME" 

150 IF LEN(A$)<16 THEN A$=A$+CHR$ ( 160 ) : GOTO 150 

160 PRINT#2,A$; 

170 PRINT#1,"U2 2 18 0" 

180 CLOSE 2 

190 PRINT#1 ,"10" ! CLOSE 1 



88 



Anatomy of the 1541 Disk Drive 



First we read track 18 sector into the buffer, set the 
buffer pointer to the position of the diskette name and 
write a new 16 character name to the buffer. Note that the 
diskette name is changed in the buffer only. But in line 
170, the buffer contents are written to the same block which 
changes the name permanently on the diskette. Next channel 2 
is closed. Finally the diskette is initialized so the BAM 
and name in the DOS memory are updated. Get the directory 
wir.h J 



LOAD"$",8 
LIST 

the screen to verify that the diskette name has changed. 



2.2.4 The Block-Allocate Command B-A 

The block-allocate command has the task of indicating in the 
BAM (block availability map) is a particular diskette block 
is being used. The block allocate command can be shortened 
to B-A. For program, sequential or relative files, as 
diskette blocks are used, the BAM is updated to note that 
the block is no longer available. But blocks written using 
the direct access commands are not automatically allocated. 
When blocks used in this manner are not allocated, the 
possibility exists that they will be overwritten when other 
files are used. The block-allocate command can be used to 
prevent this overwriting. The block-allocate command has the 
following syntax: 

B-A drive track sector 

With this the corresponding block in the BAM is marked as 
allocated and is protected from being overwritten by other 
files. If the block was already allocated, the error channel 
returns error message 65,'NO BLOCK'. 

100 OPEN 1,8,15 

110 INPUT "TRACK, SECTOR ";T,S 
120 PRINT#1, "B-A 0";T;S 
130 INPUT#1, A$,B$,C$,D$ 
140 PRINT A$","B$","C$","DS 

Using this program you can input a track and sector number 
of a block that you want to allocate. If the block is still 
free, it was allocated and the message 00, OK, 00, 00 is 
returned. If that block is already allocated, the message 
65, NO BLOCK ,TT ,SS is returned. In this case TT and SS 
contain the next higher numbered free block on the diskette. 
This tells you that the requested block is allocated but the 
block at TT,SS is still available. If error message 65 
returns zeroes as the track and sector numbers, it means 
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that no block with a higher track and/or sector number is 
available. The following program automatically allocates the 
next free sector: 

100 OPEN 1,8,15 

110 INPUT "TRACK, SECTOR ";T,S 
120 PRINT#1, "B-A 0";T;S 
130 INPUTS1, A$,B$,TT,SS 
140 IF A$ = "00" THEN 190 

150 IF A$<>"65" THEN PRINT A$ " , "B$" , "TT" , "SS : END 
160 IF TT=0 THEN PRINT "NO MORE FREE BLOCKS" : END 
170 IF TT=18 THEN TT=19 : SS=0 
180 T=TT : S=SS : GOTO 120 

190 PRINT "TRACK" TT "SECTOR" SS "ALLOCATED." 

The test for track 18 in line 180 prevents a block in the 
directory from being allocated. An additional error message 
in connection with the B-A command is interesting. If one 
attempts to allocate a block that does not exist, for 
example, track 20 sector 21, one received the error message 

66 , ILLEGAL TRACK OR SECTOR, 20, 21 

Marking a block as allocated in the BAM prevents it from 
being overwritten by other files. The block will be 
recognized as allocated until the command VALIDATE (COLLECT 
in BASIC 4.0) is issued. The VALIDATE command rebuilds a new 
BAM by rechaining the blocks of individual files and marking 
each block as belonging to a a new BAM. Unclosed files, 
marked in the directory with * are deleted. All blocks 
allocated with the B-A command and those not belonging to a 
properly closed file are freed. So, if you allocate blocks 
that do not belong to a file that appears in the director! , 
you should not use the VALIDATE command, or the blocks will 
be freed, thus destroying your file. 



2.2.5 The Block-Free Command B-F 

The block-free command performs the opposite function of the 
block-allocate command. It marks a block as not allocated 
(free) in the BAM. The block-free command can be shortened 
to B-F. The syntax is analogous to the block-allocate 
command : 

B-F drive track sector 

100 OPEN 1,8,15 

110 PRINT#1, "B-F 20 9" 

Here the block in track 20 sector 9 is freed in the BAM. If 
this block is already free, no error occurs. 
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Allocating and freeing blocks has an effect only on the 
blocks used by program, sequential or relative file by the 
DOS. The block-write and block-read commands do not check 
the BAM before overwriting blocks. With these commands you 
can write to blocks marked as allocated in the BAM. If, for 
example, you have a disk containing only direct access 
files, it is in principle unnecessary to allocate written 
blocks because no other files will be written on the 
diskette. In this case, you can use the directory blocks in 
track 18 and have 672 blocks available on the VIC 1541 
diskette. 



2.2.6 The Block-Execute Command B-E 



The block-execute command allows a block to be read from 
diskette into a buffer and then the contents of the buffer 
to be executed as a machine language program. You can can 
write routines that the DOS is supposed to execute with the 
B-W or U2 command to a sector and later load it into a 
buffer with the block-execute program where it will be 
executed as a machine language program. Naturally, this 
presupposes knowledge of the internal workings of the DOS. 
If you want to use the B-E command, you usually give the 
buffer number in the OPEN command, in case the machine 
language program is not relocatable and is written for a 
specific buffer. The block-execute command has the following 
syntax: 

B-E channelnumber drive track sector 

100 OPEN 1,8,15 

110 OPEN 2,8,2, "#3" 

120 PRINT#1, "B-E 2 17 12" 

Here buffer 3 ($600-$6FF) is assigned to channel 2. The 
contents of track 17 sector 12 is loaded into this buffer 
and there the machine language program is executed. 

The block-execute command is a combination of the block-read 
and memory-execute commands. Examples of the design of 
machine language programs to execute in the DOS are found in 
section 2.4 by the memory commands. 
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2.3 Dses of direct access 

What do the direct access commands permit us to do? 
Here is a sample of their use: 

By manipulating individual sectors you can make changes to 
the BAH sector (Track 18, Sector 0) such as changing the 
diskette name or ID. 

You can make changes to the DIRECTORY (beginning at Track 
18, Sector 1). Each file entry in the directory has unused 
space. You can use the unused space to store additional 
information. 

You can change file names in the directory by using direct 
access commands. 

You can follow the "chaining" of the blocks in a file to 
determine if the file is intact. 

You can CLOSE an unclosed file by setting bit 7 of the file 
type indicator in the directory. For example, you can change 
the file type indicator from $02 to $82. Normally these 
files are indicated in the directory with an asterisk; after 
the above change the asterisk will disappear. 

Each file entry also contains a "lock" which disallows 
deletion (SCRATCH command). If you set bit 6 of the file 
type then the file is said to be locked and not available 
for deletion. These entries have the < symbol after the type 
designation in the directory listing. Using this bit of 
knowledge, you can protect important programs on your 
diskette from accidental erasure. More information on this 
topic is found in section 4.1. 

If you are interested in making such changes, you may want 
to read an entire sector and display it on the screen, 
change it, and write it back again. Such a program called 
the DISK MONITOR is described in section 4.6. Before you 
begin with such experiments, however, you should make a copy 
of your diskette. A directory or BAM error can result in the 
loss of the entire diskette contents. 

Have you ever accidentally scratched a program or file from 
a diskette? As long as you haven't written any other 
programs or data to the diskette, you can recover this 
scratched file. Scratching a file simply sets the file type 
to in the directory and frees the allocated blocks. You 
need only search the directory entries for the file and 
restore the file type: $81 for SEQ, $82 for PRG, $83 for 
USR, and $84 for REL. After restoring the file type, you 
should use the VALIDATE command to reallocate the blocks 
again (for example: OPEN 1,8,15:PRINT#1,"V0"). 
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Other uses of direct access can provide the means for 
creating new data structures that the DOS normally does not 
recognize, you can undertake the management of the new file 
yourself, and use the direct access commands for reading and 
writing. Such a data structure is the ISAM file. ISAM is an 
abbreviation for Indexed Sequential Access Method. With an 
ISAM file, you can directly access each record, similar to 
the relative file. However, access is not by the record 
number, however, but by a key or index. This index is a 
field within the record. If, for example, a record consists 
of 5 fields, last name, first name, street, city/state and 
zip code, last name can be defined as the access key. To to 
read the record Muller, the command is simply 'read record 
Muller"'. We need not concern ourselves with record number 
or other ordering criteria and can select which record we 
want to read, change, write or erase with clear text. In 
such an ISAM file system, the index is usually saved 
separately, together with the information where the data 
record can be found on the disk. Such an ISAM file 
management with very powerful additions as described here, 
is found along with other features in the program 
development system MASTER 64, also available for the 
Commodore 64 from Abacus Software. 
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2.4 Accessing the DOS - The Memory Commands 

In section 2.2.6 we saw a way to load a program into DOS 
memory and execute it. With the memory commands, we can 
access each byte of the DOS and execute programs in RAM and 
ROM. For instance, we can access the work space of the DOS 
and read the number of free blocks on the disk or get the 
disk name from the BAM buffer. By writing into the DOS RAM 
we can change constants such as the device number of the 
drive or the number of read attempts for a block until an 
error message results. Furthermore, we can execute routines 
inside the DOS memory. These can be DOS ROM routines or your 
own, that are stored in a buffer and executes there. Of 
course this presumes knowledge of 6502 machine language and 
of the method of operation of the DOS. We hope this book is 
be helpful for the latter. Now follows a description of the 
commands and examples of their use. 



2.4.1 The Memory-Read Command M-R 

Using this command, you can access each byte of the DOS. The 
memory-read command can be shortened to M-R. The memory-read 
command is transmitted over the command channel. The byte 
read is then returned over the command channel where it can 
be retrieved with GET#. The syntax of the command looks like 
this: 

M-R CHR$(LO) CHR$(HI) 

LO and HI signify the low and high bytes of the address in 
the DOS that should be read. The following program asks for 
an address and reads the contents of the address out of the 
DOS. 

100 INPUT" ADDRESS " ;A 
110 HI = INT (A/256) 
120 LO = A-256*HI 
130 OPEN 1,8,15 

140 PRINT#1, "M-R";CHR$(LO) ;CHR$(HI) 
150 GET#1,A$ 

160 PRINT ASC(AS+CHR$(0) ) 

For instance, if we want to know the number of free blocks 
on a diskette, we don't have to read the entire directory, 
rather we can read the approprial bytes directly from the 
DOS storage. This may be necessary il files are to be 
established by a program and you don't know if there is 
enough space on the disk. 

100 OPEN 1,8, 15, "10" 

110 PRINT* 1, "M-R" CHR$(250) CHR$(2) 
120 GETS 1 , A$ : IF A$="" THEN A$=CHR$(0) 
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130 PRINT#1, "M-R" CHR$(252) CHR$(2) 

140 GET# 1 , B$ : IP B$="" THEN B$=CHR$(0) 

150 PRINT ASC(A$) + 256 * ASC(B$) "BLOCKS FREE" 

160 CLOSE 1 

With this syntax, an M-R command must be given for each byte 
that is to be read. As you can gather from the DOS listing 
and through checking and verifying, one can read more than 
one byte at a time with a M-R command. You need only give 
the number of bytes to be read as the third parameter: 

M-R CHR$(LOl CHR$(HI) CHR$( NUMBER) 

We can use this to read the name of a diskette from the BAM 
buffer storage. Before this can be done, the diskette must 
be initialized so that the current diskette name is stored 
in the buffer at address $700, out of which we will read the 
name of the disk with the M-R command. 

100 OPEN 1,8,15, "10" 

110 PRINT* 1, "M-R" CHR$(144) CHR$(7) CHR$(16) 
120 INPUT* 1 , A$ 
130 PRINT A$ 

This is a simple way to read the name of the diskette (16 
characters padded with shifted spaces (CHR$(160)). With this 
you can check if the correct diskette is in the drive. 

The disk buffer can also be read using this method. It also 
allows parts of the DOS to be manipulated by copying the 
contents of the ROM to a buffer where it can be changed and 
executed. This is explained in the next two sections. 



2.4.2 The Memory-Write Command M-W 

The complement command of memory-read is the command to 
write data in the DOS storage memory-write or M-W. Writing 
is allowed only to DOS RAM - page zero, stack, and buffers. 
It is possible to send several bytes with one command. The 
syntax look like this: 

M-W CHRS(LO) CHRS(HI) CHR$ ( NUMBER) CHRS(DATAl) CHR$(DATA2) 

The number of bytes as specified by NUMBER can be 
transmitted, theoretically 255, but because the input buffer 
holds only 40 characters, the number of bytes is limited to 
34. A possible use of this command is to change the address 
number (see program "DISK ADDRESS CHANGE", section 4.2.3). 
The address is stored in two memory locations in page zero. 
The device number plus $20 (32 decimal) is stored in address 
$77 (119 decimal) for LISTEN, for receiving data from the 
computer. The address immediately following contains the 
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device number plus $40 (64 decimal) for TALK, for sending 
data to the computer. Because the addresses are saved 
separately. It is possible to use different send and receive 
addresses. In the following example, the receive address is 
set to 9 and the send address to 10. 

100 OPEN 1,8,15 

110 PRINTtl, "M-W" CHR$(119) CHR$(0) CHR$(2) 
CHR$(9+32) CHR$( 10+64) 

120 CLOSE 1 

140 OPEN 1,9,15 

150 OPEN 2,10,15 

160 PRINT#1,"I0" 

170 INPUT#2,A$,B$,C$,D$ 

180 PRINT A$" ,"B$" ,"C$" , "D$ 

00, OK, 00, 00 

Programs cannot be loaded this way because the DOS will try 
to load the program using the same address that the filename 
was sent under. 

Changing the device number is necessary if you want to use 
more than one disk drive with a single computer. To this 
end, change the device address of the second drive to 9. 
This software change remains in effect only until a reset 
(for example, turning the drive off). If the change needs to 
be permanent, you can change the with DIP switches or cut 
the circuit board jumper inside the drive. 

Because many parameters of the DOS are in RAM, you can make 
extensive changes to the function of the DOS, such as the 
s"tep size, with which the number of sectors per track is 
determined (address $69 (105 decimal), normally contains 
10). We can also specify the number of attempted reads until 
an error results (address $6A (106 decimal), contains 5). 
More addresses of parameters can be found in section 3.1.2. 



2.4.3 The Memory-Execute Command M-E 

Using this command you can call up and execute machine 
language programs in the DOS memory. The memory-execute 
command can be shortened to M-E. The programs must end with 
RTS (Return from Subroutine, $60). The syntax of the 
command: 

M-E CHR$(LO) CHR$(BI) 

Again, LO and HI are the low and high bytes of the starting 
address of the machine language routine. It is possible to 
call up routines in the DOS ROM as well as our own routines 
written to a buffer with M-W and there executed. As an 
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example, you can call up a routine that creates an error 
message. For example, address $EFC9 is the entry point for 
message 72, "DISK FULL". The. example looks like this: 

100 OPEN 1,8,15 

110 PRINT#1,"M-E" CHR$(201) CHR$(239) 

120 INPUT# 1,A$,B$,C$,D$ 

130 PRINT A$ "," B$ "," C$ "," D$ 

In line 110, the address $EFC9 is divided into a low byte of 
$C9 (201) and high byte of $ EF ( 239) and sent as the 
parameters of the M-E command. Then the error channel is 
read and the message displayed. 

72, DISK FULL, 00, 00 

If you want to run your own programs in the 1541 drive, the 
program should be written to a buffer and there called with 
M-E. Should this program be used more often, the contents of 
the buffer can be written to a block on the diskette. It can 
then be executed with the B-E command, which loads the 
contents of the block in the buffer and then automatically 
starts the routine. As a suggestion for your own program in 
DOS, you can display the directory in a different form, with 
additional parameters, similar to the program in section 
4 * 1,1 * In addition, you could count the number of files on 
the disk and display that, using such a routine you can get 
a much clearer understanding of how the directory is created 
in the DOS listing. If you are clear on the matter of the 
new directory format, you are ready to take the additionel 
parameters from the. directory entries and assemble them in 
the desired format. 



2.4.4 The User Commands U 

Using the USER commands there are two possible ways of 
executing programs in the drive. The user commands have the 
following syntax: 

UX 

X can be a letter from A to J or a digit from 1 to 9 or ':' 
(which takes the place of 10). When a command is called, a 
jump is made to the following addresses in DOS: 



UA 


Ul 


$CD5F 


substitute 


for 


UB 


U2 


$DC97 


substitute 


for 


UC 


U3 


$0500 






UD 


U4 


$0503 






UE 


U5 


$0506 






UF 


U6 


$0509 






UG 


U7 


$050C 
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UH 
UI 
UJ 



U8 
U9 
U: 



$050F 
$FF01 
$EAA0 



reset 



You are already acquainted with the commands Ul and U2 (also 
UA and UB); they serve as substitutes for BLOCK-READ and 
BLOCK-WRITE. The commands U3 to U8 (UC to UH) jump to 
addresses within buffer 2 (address $500 (1280) - see section 
2.1). If you want to use several commands, a jump table to 
individual routines can be placed there; if only one user 
command (U3) is used, the program can begin directly at 
$500. 

The user command UJ jumps to the reset vector; the disk 
drive is then reset. 

100 OPEN 1,8,15 

110 PRINT#1,"UJ" 

120 FOR 1=1 TO 1000 : NEXT 

130 GET#1,A$ : PRINT A$ : IF ST<>64 THEN 130 

73,CBM DOS V2.6 1541,00,00 

Line 120 waits for the reset to take place. Then the 
initialization message is retrieved in line 130. 

By using the user commands, parameters can be passed to the 
routines. The complete command string is put in the input 
buffer at $200 (512). Possible parameters are addresses, 
command codes, and filenames. This way, the user commands 
can be utilized to expand the commands of the disk or to 
realize a new data structure. Whole user commands can 
replace the M-E command with its corresponding addresses; 
the user-call is shorter and clearer. 
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Chapter 3: Technical Information 

3.1 The Construction of the VIC 1541 



3.1.1 Block Diagram of the Disk Drive 
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3.1.2 DOS Memory Map - ROM, RAM, I/O 

Memory map of the VIC 1541 disk drive 



65535 



49152 



16K 

Control system 



Sffff 



$cooo 



7183 
7168 

6159 
6144 



VIA Disk Control 



VIA serial bus 



$1C0F 
$1C00 

$180F 
$1800 



2047 




$07FF 



$0000 



100 



Anatomy of the 1541 Disk Drive 

Layout of the I/O Ports (VIA 6522) 

VIA 6522 1, Port for Serial Bus 

$1800 Port B 

$1801 Port A 

$1802 Direction of Port B 

$1803 Direction of Port A 

$1805 Timer 

PB 0: DATA IN 

PB Is DATA OUT 

PB 2: CLOCK IN 

PB 3: CLOCK OUT 

PB 4: ATN A 

PB 5,6s Device address 

CB 2s ATN IN 



VIA 6522 2, Port for Motor and Read/Write Head Control 

S1C00 Port B, control port 

$1C01 Port A, data to and from read/write head 

$1C02 Direction of Port A 

$1C03 Direction of Port B 

PB 0s STP I 

PB Is STP O step motor for head movement 

PB 2s MTP drive motor 

PB 3s ACT LED on drive 

PB 4s WPS Write Protect Switch 



PB 7 
CA 1 
CA 2 



SYNC 

Byte ready 
SOE 
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The Layout of the Important Memory Locations 






$00 




Command code for buffer 


1 


$01 




Command code for buffer 1 


2 


$02 




Command code for buffer 2 


3 


$03 




Command code for buffer 3 


4 


$04 




Command code for buffer 4 


6 


$06- 


$07 


Track and sector for buffer 


8 


$08- 


$09 


Track and sector for buffer 1 


10 


$0A- 


•$0B 


Track and sector for buffer 2 


12 


$0C- 


•$0D 


Track and sector for buffer 3 


14 


$0E- 


•$0F 


Track and sector for buffer 4 


18 


$12- 


$13 


ID for drive 


20 


$14- 


$15 


ID for drive 1 


22 


$16- 


•$17 


ID 


32 


$20- 


•$21 


Flag for head transport 


48 


$30- 


-$31 


Buffer pointer for disk controller 


57 


$39 




Constant 8, mark for beginning of data 
block header 


58 


$3A 




Parity for data buffer 


61 


$3D 




Drive number for disk controller 


63 


$3F 




Buffer number for disk controller 


67 


$43 




Number of sectors per track for 
formatting 


71 


$47 




Constant 1, mark for beginning of data 
block header 


73 


$49 




Stack pointer 


74 


$4A 




Step counter for head transport 


81 


$51 




Actual track number for formatting 


105 


$69 




Step size for sector division (10) 


106 


$6A 




Number of read attempts (5) 


111 


$6F- 


•$70 


Pointer to address for M & B commands 


119 


$77 




Device number + $20 for listen 


120 


$78 




Device number + $40 for talk 


121 


$79 




Flag for listen (1/0) 


122 


$7A 




Flag for talk (1/0) 


124 


$7C 




Flag for ATN from serial bus receiving 


125 


$7D 




Flag for EOI from serial bus 


127 


$7F 




Drive number 


128 


$80 




Track number 


129 


$81 




Sector number 


130 


$82 




Channel number 




c q i 




Secondary address 


132 


$84 




Secondary address 


133 


$85 




Data byte 


139 


$8B- 


-$8D 


Work storage for division 


148 


$94- 


-$95 


Actual buffer pointer 


153 


$99- 


-$9A 


Address of buffer $300 


155 


$9B- 


-$9C 


Address of buffer 1 $400 


157 


$9D- 


-$9E 


Address of buffer 2 $500 


159 


$9F- 


-$A0 


Address of buffer 4 $600 


161 


$A1- 


-$A2 


Address of buffer 5 $700 


163 


$A3- 


-$A4 


Pointer to input buffer $200 


165 


$A5- 


-$A6 


Pointer to buffer for error message $2 
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181 


$B5-$BA 


187 


$BB-$C0 


193 


$C1-$C6 


199 


$C7-$CC 


212 


$D4 


213 


$D5 


214 


$D6 


215 


$D7 


231 


$E7 


249 


$F9 


256-325 


$100-$145 


512-552 


$200-$228 


586 


$24A 


600 


$258 


601 


$259 


602 


$25A 


628 


$274 


632 


$278 


663 


$297 


640-644 


$280-$284 


645-649 


$285-$289 


725-761 


$2D5-$2F9 


762/764 


$2PA/$2FC 


768-1023 


$300-$3FF 



Record # lo, block # lo 
Record # hi, block # hi 
Write pointer for rel. file 
Record length for rel. files 
Pointer in record for rel. file 
Side sector number 

Pointer to data block in side sector 
Pointer to record in rel. file 
File type 
Buffer number 
Stack 

Buffer for command string 
File type 
Record length 
Track side-sector 
Sector side-sector 
Length of input line 
Number of file names 
File control method 
Track of a file 
Sector of a file 



fer 

1UZ4-1279 $400-$4FF Buffer 1 
1280-1535 $500-$5FF Buffer 2 
1536-1791 $600-$6FF Buffer 3 
1792-2047 $700-$7FF Buffer 4 
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3.2 Operation of the DOS - An Overview 

The VIC-1541 is an intelligent disk drive with its own 
microprocessor and control system (Disk Operation System, 
DOS). This means that no memory space or processing time is 
taken from the computer. The computer needs only transmit 
commands to the disk drive, which it then executes on its 
own. 

The disk performs three tasks simultaneously: Firstly, it 
manages data traffic to and from the computer. Secondly, it 
interprets the commands and performs the management of files 
and the associated communications channels and block buffer. 
Thirdly, it handles the hardware-oriented related functions 
of the disk drive - formatting, reading and writing, etc. 

These tasks are carried out simultaneously by the 6502 
microprocessor in the VIC 1541. This is possible with the 
help of the interrupt technique. Only in this way can three 
tasks be executed simultaneously. 

Most of the DOS is concerned with interpreting and executing 

the transmitted commands. The reception of data and commands 
from the computer is controlled by interrupts. If the 
computer wants to talk to a peripheral device, it sends a 
pulse along the ATN line (ATteNtion, see section 5.1). This 
generates an interrupt at the disk drive. The DOS stops its 
current task and notices that the computer wants to send 
data. The DOS then finishes the original task. After that, 
the DOS will accept further data and commands from the the 
computer. If the command is finished, the DOS stays in a 
wait loop until new commands arrive from the disk. 

The execution of a command at this level is limited to the 
logical processing of the command, the management of the 
communications channel to and from the computer and the 
preparation and retrieval of data to be written or read, 
respectively. The tasks of a disk controller, formatting 
diskettes and writing and reading individual blocks, must 
also be performed by the processor. 

These tasks are again interrupt controlled. Regular programs 
in the disk are interrupted every 14 milliseconds by a 
built-in timer, and control branches to a program that 
fulfills the tasks of a disk controller. Communications 
between the two independent programs is handled through a 
common area of memory, in which the main program places 
codes for the disk controller program. If the interrupt 
program is active, it looks at the memory locations to 
determine which activities are demanded, such as formatting 
a diskette, if this is the case, the drive and head motors 
are set in motion. At the end of the interrupt routine, the 
main program examines the memory locations to determine if 
the task was carried out by the disk controller, or if it 
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cale of'an^J" Way ' th *. main pr ° 9ram is informed in 

case of an error, such as a read error or if a write protect 
tat> is present. The main program can then react 
appropriately and display the error message, for elamp le? 

in the large CBM disks, two 6504 microprocessors are used as 
area of°memory!' er * Comn,unication a 9 ain occurs over a common 

£ri^M~JV £ st . ora 9 e lavout of the DOS such as the l/o 
fm,nrt fhf raana 9 ln 9 tl ? e diskette and serial bus can be 
found in the previous section. 

This overview of the work of the DOS is naturallv iust a 
the 9 DOS U li^ ne ' "/^ W8nt m ° re SXaCt inform^Yon' refer'to 

compete lit S„?5 I** 6 V l° 15il in SeCtion 3 ' 5 ' in whi °" the 
complete 16K control system is documented. 
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3.3 The Structure of the VIC 1541 Diskette 



The diskette of the 1541 is divided into 35 tracks. Each 
track contains from 17 to 21 sectors. The total number of 
sectors is 683. Because the directory occupies track 18, 664 
data are available for use, each containing 256 bytes. The 
tracks are layed out as follows: 



TRACK s NUMBER OF SECTORS 



1 TO 17 : 21 

18 TO 24 : 19 

25 TO 30 : 18 

31 TO 35 :• 17 



The varying number of sectors per track is necessitated by 
the shortening of the tracks from the midpoint on. 



3.3.1 The BAM of the VIC 1541 

BAM is an abbreviation for Block Availability Map. The BAM 
indicates whether a block on the diskette is free or 
allocated to a file. After every manipulation of blocks 
(saving, deleting, etc.) the BAM is updated. When the BAM 
indicates that a file to be saved requires more blocks than 
are available, an error message is given. When a file is 
OEPNed, the BAM in the DOS storage is updated, and is 
rewritten to disk when the file is CLOSEd. Commands that- 
have a write or delete function read the BAM, update it, and 
rewrite it to the diskette. The BAM is organized as follows 
on track 18 sector 0: 



: Track 18, sector 



: BYTE : CONTENTS : MEANING 



0,1 ($00-$01) : $12, $01 : Track and sector of the 1st' 
: : block of the directory 

2 ($02) : $41 : ASCII character 'A'; 

: : indicates 1541 format 

3 ($03) : $00 : Zero flag for future use 
4-143 ($04-$8F) : : Bit map of free and 

: : allocated blocks * 



1 = block free; = block allocated 



The bit map of the blocks is organized so that 4 bytes 
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represent the sectors on a track. As can be inferred from 
the following table, the first of the 4 bytes contain the 
number of free blocks in the track. The other 3 bytes (24 
bits) indicate which blocks are free and which are allocated 
in this track. 

Structure of the BAM entry of a track: 





BYTE 




CONTENTS 











Number of available blocks in this track 






1 




Bit map of sectors 0-7 






2 




Bit map of sectors 8-15 






3 




Bit map of sectors 16-23 





4 bytes of a track designation in the BAM: 



: Track 18, 


sector 0, bytes 4-7 (track 1) : 


: 00001010 


: 00000000 00000011 11111111 : 


: ($0A) 


: ($00) ($03) ($FF) : 


: 10 free 


: 1 = free • 


: blocks 


: = allocated : 



Using a simple program, you can read the first byte of each 
track entry in the bit map, add them up and find the total 
number of free blocks on the diskette. 



3.3.2 The Directory 

The directory is the table of contents of the diskette. It 
contains the following information: 

- disk name 

- disk ID 

- DOS version number 

- filenames 

- file types 

- blocks per file 

- free blocks 

This directory is loaded into memory with the command LOAD 
"$",8. A program previously in memory will be destroyedl It 
can be displayed on the screen with the LIST command. 

The directory occupies all of track 18 on the disk. The file 
entries follow the directory header. Each block accommodates 
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a maximum of 8 file entries. Because the BAM and the header 
occupy one block, 18 blocks are left for file entries. A 
total of 144 files may reside on one diskette (18 blocks 
with 8 entries each). 

Format of the directory header: 



: Track 18 


, sector 






: BYTE 




CONTENTS 


i MEANING : 


: 144-161 


($90-$Al) : 




: Disk name (padded with : 








: shifted spaces) : 


: 162,163 


($A2-$A3) 




: Disk ID marker : 


: 164 


($A4) 


$A0 


: Shifted Space : 


: 165,166 


($A5-$A6) 


$32, $41 


: ASCII characters "2A" : 








: (format) : 


: 167-170 


($A7-$AA) 


$A0 


: Shifted Space : 


: 171-255 


($AB-$FF) 


: $00 


: not used, filled with : 



: * Bytes 180 to 191 have the contents "BLOCKS FREE" on 
: many diskettes 



The Diskette Name: 

The name of the diskette can be a maximum of 16 characters 
in length and is established when the diskette is formatted. 
If fewer then 16 characters are given, the rest is filled 
with shifted spaces ($A0). The following BASIC routine reads 
the name and saves it in the string variable DN$: 

100 OPEN 15, 8, 15, "10" :' REM COMMAND CHANNEL 15 

AND DISK INITIALIZED 

110 OPEN 2,8,2,"#" : REM DATA CHANNEL 2 OPENED 

120 PRINT#15,"B-R";2;0;18;0 : REM TRACK 18, SECTOR READ 

AND PLACED IN CHANNEL 2 

130 PRINT#15,"B-P";2;144 : REM BUFFER- POINTER TO BYTE 

144 

140 DN$="" : REM STRING DN$ IS ERASED 

150 REM LOOP TO READ THE 16 BYTES OF THE NAME 
160 FOR 1=1 TO 16 

170 ::GET#2,X$ : REM READ A BYTE 

180 ::IF ASC(X$)=160 THEN 200 : REM IGNORE SHIFT SPACE 
190 ::DN$=DN$+X$ : REM BYTE ADDED TO DN$ 

200 NEXT I 

210 CLOSE 2:CLOSE 15 : REM CLOSE CHANNELS 

After running the routine, the string DNS contains the disk 
name. 
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Diskette ID: 

The diskette ID is two characters in length and is specified 
when formatting the diskette. The DOS uses this ID to detect 
if a diskette in the drive has been replaced. If so, then 
the DOS performs an INITIALIZE. Initializing a diskette 
loads the BAM into memory in the drive. This way, the actual 
BAM is always in memory, provided the ID given when 
formatting is always different. Should this not be the case, 
a diskette must be initialized explicitly by using the 
INITIALIZE command. 



3.3.3 The Directory Format 

Blocks 1 through 19 on track 18 contain the file entries. 
The first two bytes of a block point to the next directory 
block with file entries. If no more directory blocks follow, 
these bytes contain $00 and.SFF, respectively. 



: Track 18, sector 1 




: Byte • Contents 





0,1 


($00 


,S01) 


2-31 


($02 


-$1F) 


34-63 


($22 


-S3F) 


66-95 


($42 


-S5F) 


98-127 


($62 


-$7F) 


130-159 


($82 


-$9F) 


162-191 


($A2 


-$BF) 


194-223 


($C2 


-$DF) 


226-255 


($E2 


-$FF) 



Track and sector number of the 

next directory block 

Entry of 1st file 

Entry of 2nd file 

Entry of 3rd file 

Entry of 4th file 

Entry of 5th file 

Entry of 6th file 

Entry of 7th file 

Entry of 8th file 



Format of a Directory Entry: 

Each file entry consists of 30 bytes, the functions of which 
are described below: 
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BYTE 



: CONTENTS 



(S00) 

1,2 ($01, $02) 

3-18 ($03-$12) 

19,20 ($13, $14) 



21 



($15) 



22-25 ($16-$19) 
26,27 ($1A-$1B) 

28,29 ($1C-$1D) 



File type 

Track and sector number of the 
first data block 

Filename (padded with "SHIFT SPACE" 
Only used for relative files 
(track and sector of the first 
side-sector block) 
Only used for relative files 
(record length) 
Not used 

Track and sector number of the new 
file when overwritten with the @: 
Number of blocks in the file (low 
byte, high byte) 



File Type Marker: 

Byte of the file entry denotes the file type. Bits 0-2 are 
used to indicate the 5 file types. Bit 7 indicates if the 
file has been CLOSEd properly. Closing a file sets bit 7. An 
unclosed file is denoted with an asterisk in front of the 
file type in the directory listing. If, for example, a 
sequential file "TEST" is opened and the directory is 
listed, this file will be represented like this: 

12 "TEST" *SE0 

If the file is CLOSEd again, the asterisk does not appear in 
future directory listings. If this file remains unclosed and 
later opened, the error message "WRITE FILE OPEN" will 
appear. 



The File Type: 

In order to understand the function of byte in the file 
entry, the file type, a table of all file types follows: 



: File type 


: Bit mask 


opened 


: Bit mask 


closed 






: 7654 


3210 


HEX 


: 7654 


3210 


HEX 




: DELeted 


: 0000 


0000 


$00 


: 1000 


0000 


$80 




: SEQuential 


: 0000 


0001 


$01 


: 1000 


0001 


$81 




: ProGram 


: 0000 


0010 


$02 


: 1000 


0010 


$82 




: USeR 


: 0000 


0011 


$03 


: 1000 


0011 


$83 




: RELative 


: 0000 


0100 


$04 


: 1000 


0100 


$84 





Perhaps you have noticed that bits 3-6 have no function. But 
we verified with help from the DOS listing, bit 6 has a 
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function: 

BIT 6 OF THE FILE TTPE DENOTES A PROTECTED FILE! 

If you set this bit to 1, the corresponding file can no 
longer be deleted. This is designated in the directory 
listing with a < next to the file type. Because setting this 
bit requires some complicated commands, you will find a 
program in chapter 4 of this book with which you can 
protect, unprotect, and delete files. 



Track and sector of the first Data Block 

Bytes 1 and 2 of the file entry point to the first data 
block of the file. The first byte contains the track and the 
second the sector number where the file begins. The first 
data block, in turn contains a pointer to the second block 
of the file (also contained in the first two bytes of the 
block). The last data block of the file is indicated by a 
first-byte value of $00. The second byte contains the number 
of bytes used in this last sector. 

This concatenation can be explained with the help of the DCS 
MONITOR, contained in this books 



>:B0 


AO 


AO 


AO 


AO 


AO 


00 


00 


00 




>:B8 


00 


00 


00 


00 


00 


00 


0B 


00 




>:C0 


00 


00 


81 


13 


09 


54 


31 


32 


T12 


>:C8 


2F 


53 


30 


31 


AO 


AO 


AO 


AO 


/S01 


>sD0 


AO 


AO 


AO 


AO 


AO 


00 


00 


00 




>:D8 


00 


00 


00 


00 


00 


00 


06 


00 




>:E0 


00 


00 


82 


10 


00 


44 


49 


53 




>:E8 


4B 


20 


41 


44 


44 


52 


20 


43 


K ADDR C 


> :F0 


48 


41 


4E 


47 


45 


00 


00 


00 


HANGE. . . 


>:F8 


00 


00 


00 


00 


00 


00 


04 


00 





This is an extract from the directory (track 18, sector 1) 
of the TEST/DEMO diskette. You can follow the organization 
of the file DISK ADDR CHANGE. The entry of this file begins 
at byte $E2 and ends with byte $FF. This is a PRG file, 
which can be recognized by the file type $82 in byte $E2. 
This file comprises 4 blocks on the disk. This is evident 
from bytes $FE and $FF. Bytes $E3 and $E4 of the entry 
address the first data block of the file ($10, $00, 
corresponding to track 16, sector 0). 

Let's look at a section of this block: 



>:00 


10 


OA 


01 


04 


OF 


04 


64 


00 




>:08 


97 


35 


39 


34 


36 


38 


2C 


31 


.59468,1 


>:10 


32 


00 


39 


04 


6E 


0D 


99 


22 




>:18 


93 


13 


11 


11 


11 


11 


44 


52 




>:20 


49 


56 


45 


20 


41 


44 


44 


52 


IVE ADDR 


>:28 


45 


53 


53 


20 


43 


48 


41 


4E 


ESS CHAN 
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>:30 47 45 20 50 52 4F 47 52 GE PROGR 

>:38 41 4D 22 00 59 04 6F 00 AM" . Y./. 

>:40 99 22 11 54 55 52 4E 20 .".TURN 

>:48 4F 46 46 20 41 4C 4C 20 OFF ALL 

This block contains the first part of the program. It is 
stored on the diskette exactly as it is stored in the 
computer's memory. The BASIC commands are converted to one 
byte codes called tokens. This is why only the text can be 
recognized in the right hand translation of the hexadecimal 
codes. The first two bytes of this data block indicate the 
second data block ($10 and $0A, track 16, sector 10) from 
with this section follows: 



>:00 


10 


14 


34 


30 


00 


ID 


05 


AO 


. .40 . . . 


>:08 


00 


8D 


20 


33 


30 


30 


3A 


20 


.. 300: 


>:10 


8F 


20 


46 


49 


4E 


44 


20 


44 


. FIND D 


>:18 


52 


49 


56 


45 


20 


54 


59 


50 


DRIVE TYP 


>:20 


45 


00 


39 


05 


AA 


00 


8D 


20 


E.9. .. 


>:28 


36 


30 


30 


3A 


20 


8F 


20 


43 


600: . C 


>:30 


48 


41 


4E 


47 


45 


20 


41 


44 


HANGE AD 


>:38 


44 


52 


45 


53 


53 


00 


68 


05 


DRESS. ( . 


>:40 


B4 


00 


99 


22 


11 


54 


48 


45 


. ." .THE 


> :48 


20 


53 


45 


4C 


45 


43 


54 


45 


SELECTE 



The program is continued in this block. Bytes $00 and $01 
point to the third data block of the file ($10, $14, track 
16, sector 20) : 



>:00 


10 


08 


31 


30 


30 


30 


00 


23 


,.1000.# 


>:08 


06 


54 


01 


8B 


20 


43 


B2 


32 


.T.. C 2 


>:10 


35 


34 


20 


A7 


20 


4D 


54 


B2 


54 MT 


>:18 


31 


31 


39 


3A 


20 


8F 


3A 


20 


119: .: 


>:20 


32 


30 


33 


31 


20 


56 


32 


2E 


2031 V2. 


>:28 


36 


00 


45 


06 


5E 


01 


8B 


20 


6 • E • • • 


>:30 


43 


B2 


32 


32 


36 


20 


A7 


20 


C 226 


>:38 


4D 


54 


B2 


35 


30 


3A 


20 


8F 


MT 50: . 


>:40 


3A 


20 


32 


30 


34 


30 


20 


56 


: 2040 V 


> :48 


31 


2E 


32 


00 


67 


06 


68 


01 


1.2. .(. 



This is the next to the last block of the program. You have 
no doubt recognized that the data blocks are in the same 
track, but are not contiguously. The first data block is 
block 0. The next is block 10, 10 blocks from the first 
block. 9 blocks are always skipped between data blocks of a 
file. The third data block is block number 20. The DOS 
begins again with the first block if the calculated block 
oversteps the highest block. Because track 16 contains 21 
blocks, the last data block is block number 8. The first two 
bytes of this third block address it: 

>:00 00 F8 5A 42 B2 31 20 A7 . ZB 1 

>:08 20 34 34 30 00 14 07 A3 440... 

>:10 01 8B 20 53 54 20 A7 20 .. ST 

>:18 31 30 30 30 00 45 07 B8 1000. E. 
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>:20 01 98 31 35 2C 22 4D 2D . .15,"M- 

>:28 52 22 C7 28 31 37 32 29 R" (172) 

>:30 C7 28 31 36 29 3A Al 23 (16): # 

>:38 31 35 2C 5A 43 24 3A 5A 15,ZC$:Z 

>:40 43 B2 C6 28 5A 43 24 AA C F(ZC$ 

>:48 C7 28 30 29 29 00 66 07 G(0)).&. 

Here the end of the program is marked by the value $00 in 
byte $00. Byte $01 gives the number of bytes in this last 
block that belong to the program. ($F8 corresponds to 248 
bytes). Now we can find out the size of the program: 

3 blocks with 254 bytes each = 762 bytes 
last block = 248 bytes 

Size of the program noo bytes 



The Filename: 

The filename is contained in bytes 3-18 of the file entry. 
It consists of a maximum of 16 characters. Should the name 
be shorter than 16 characters, the rest of the name is 
padded with shifted spaces ($A0). 



Track and Sector of the new File for "Overwriting": 

If a file is overwritten by using the gs, the new file is 
first completely saved. No filename entry is made in the 
directory for this file because the file already exists 
under this same name. Instead the address of the first block 
of the new file is placed in bytes 26 and 27 of the filename 
entry. If the new program is removed, the old one is 
deleted, which merely designates the blocks allocated to the 
file as free in the BAM. Now the address of the first data 
block of the new file is placed into the filename entry in 
bytes 1 and 2 is used and the file is "overwritten". 



Number of Blocks in the File: 

The length of a file is given in bytes 28 and 29 of its file 
entry. A file consists of at least one block and as many as 
664 blocks. The first byte is the low byte, and the second 
is the high byte. If, for example, you discovered the file 
length $1F,$00 with the DISK MONITOR, the file consists of 
31 blocks. 
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3.4 The Organization of Relative Files 



Relative files differ from sequential files in that each 
data record can be accessed directly by a record number. 
The 1541 DOS takes care of most of the tasks required to 
support relative records. Let's take a closer look at the 
organization of a relative file. 

First OPEN a relative file with a record length of 100: 

OPEN 2,8,2, "REL-FILE,L,"+CHR$(100) 
Now write data record number 70: 

OPEN 1,8,15 

PRINT# 1 , n P"+CHR$ ( 2 ) +CHR$ ( 70 ) +CHR$ ( ) +CHR$ ( 1 ) 
PRINT# 2 , " DATA FOR RECORD 70" 
CLOSE 2 : CLOSE 1 

The directory entry then looks like this: 

>:00 .. .. 84 11 00 52 45 4C ...REL 
>:08 2D 46 49 4C 45 AO AO AO —FILE 
>:10 AO AO AO AO AO 11 OA 64 ..$ 
>:18 00 00 00 00 00 00 ID 00 

The first byte $84 denotes a relative file. The next two 
bytes denote the first track and sector of the data ($11, 
$00; track 17 sector 0); exactly as with a sequential file. 
As usual, the name of the file follows (16 characters, 
padded with shifted spaces, SAO). Following are two fields 
not used with sequential files. The first field is a two 
byte pointer to the track and sector of the first side- 
sector block. A side-sector contains the pointers to each 
data record and is described more in detail later ($11, $0A; 
track 17, sector 10). The second field is a byte which 
contains the record length, a value between 1 and 254, in 
our case $64 (100). 

The convenience of being able to access each record 
individually requires a definite length for each record thst 
must be defined when establishing a relative file. The rest 
of the fields in the directory entry have the usual 
significance; the last two bytes contain the number of 
blocks in the file do and hi byte, $1D and $00 (29)). 

What does such a side-sector block look like and what is its 
function? 

The side-sector blocks contain the track and sector pointers 
to the individual data records. For example, if we want to 
read the 70th record in the relative file, the DOS consults 
the side-sector block to determine which track and sector 
contains the record and then read this record directly. As 
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a result, you can read the 70th record of the file without 
having to read the entire file. Now let's take a look at the 
exact construction of a side-sector block. This side-sector 
block is from our previous file. 

>:00 00 47 00 64 11 OA 00 00 .G.$.... 

>:08 00 00 00 00 00 00 00 00 

>sl0 11 00 11 0B 11 01 11 0C 

>:18 11 02 11 0D 11 03 11 0E 

>:20 11 04 11 OF 11 05 11 10 

>:28 11 06 11 11 11 07 11 12 

>:30 11 08 11 13 11 09 11 14 

>s38 10 08 10 12 10 06 10 10 

>:40 10 04 10 0E 10 02 10 0C 

>:48 00 00 00 00 00 00 00 00 

>:50 00 00 00 00 00 00 00 00 

etc. 

The first two bytes point to the track and sector of the 
next side-sector block, as usual. In our case, no further 
side-sector blocks exist ($00) and only $47 = 71 bytes of 
this sector are used. Byte 2 contains the number of the 
side-sector block, 00. A relative file can contain a maximum 
of 6 such blocks; the numbering goes from to 5. The record 
length, $64 (100), is in byte 3. The next twelve bytes 
(bytes 4 through 15) contain the track and sector pointers 
(two bytes each) to the 6 side-sector blocks (00,00 means 
the block is not yet used). Starting at byte 16 ($10) are 
the pointers to the data, and the track and sector pointers 
to the first 120 data blocks (in our case, only 28 
pointers). Using the record number and record length, the 
DOS can calculate in which block the data lies and at which 
position within the block the record begins. Take the 
following example, for instance: 

To read the 70th record from the file with a record length 
of 100 characters, you can perform the following calcula- 
tions: 

(70-1) * 100 / 254 

We get a quotient of 27 and a remainder of 42. The DOS now 
knows that the record can be found in the 27th data block at 
the 42 + 2 or 44th position. 

Here's an explanation of the calculation. Each block 
contains 256 bytes, the first two of which are used as a 
pointer to the next block. 254 bytes are then left over for 
data storage. We can calculate the byte number from the 
start of the file (which is record 1) from the record number 
and record length. If we divide this value by the number of 
bytes per block, we get the number of the block containing 
the record. The remainder of the division gives the position 
within the block (add 2, because the first two bytes serve 
as a pointer). If the record overlaps the end of the block, 
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the next block must also be read. 

In our example, the 27th data block lies in track $10 = 16 
and sector $0C = 12. If we read this block, we get the 
following picture: 



>:00 


00 


F3 00 


00 


00 00 


00 


00 




>:08 


00 


00 00 


00 


00 00 


00 


00 




>:10 


00 


00 00 


00 


00 00 


00 


00 




>:18 


00 


00 00 


00 


00 00 


00 


00 




>:20 


00 


00 00 


00 


00 00 


00 


00 




>:28 


00 


00 00 


00 


44 41 


54 


41 


. . ..DATA 


>:30 


20 


46 4E 


52 


20 52 


45 


43 


FOR PEC 


>:38 


46 


52 44 


20 


37 30 


0D 


00 


ORD 70.. 


>:40 


00 


00 00 


00 


00 00 


00 


00 




>:48 


00 


00 00 


00 


00 00 


00 


00 




>:50 


00 


00 00 


00 


00 00 


00 


00 




>:58 


00 


00 00 


00 


00 00 


00 


00 




>:60 


00 


00 00 


00 


00 00 


00 


00 




>:68 


00 


00 00 


00 


00 00 


00 


00 




>:70 


00 


00 00 


00 


00 00 


00 


00 




>:78 


00 


00 00 


00 


00 00 


00 


00 




>:80 


00 


00 00 


00 


00 00 


00 


00 




>:88 


00 


00 00 


00 


00 00 


00 


00 




> :90 


FF 


00 00 


00 


uu uu 


uu 


uu 




>:98 


00 


00 00 


00 


00 00 


00 


00 




>:A0 


00 


00 00 


00 


00 00 


00 


00 




>:A8 


00 


00 00 


00 


00 00 


00 


00 




>:B0 


00 


00 00 


00 


00 00 


00 


00 




>:B8 


00 


00 00 


00 


00 00 


00 


00 




>:C0 


00 


00 00 


00 


00 00 


00 


00 




>:C8 


00 


00 00 


00 


00 00 


00 


00 




> :D0 


00 


00 00 


00 


00 00 


00 


00 




>:D8 


00 


00 00 


00 


00 00 


00 


00 




?:E0 


00 


00 00 


00 


00 00 


00 


00 




>:E8 


00 


00 00 


00 


00 00 


00 


00 




>:F0 


00 


00 00 


00 


FF 00 


00 


00 




>:F8 


00 


00 00 


00 


00 00 


00 


00 




If we 


get a block number greater than 120 from the 


calculation, the 


pointer 


can 


no 


longer be found on the first 



side-sector block, rather in the next side-sector blocks. In 
this case, you divide the block number by 120, the quotient 
being the number of the side-sector block. The remainder 
gives the location of the pointer within this block. Fcr 
instance, to find record number 425, divide by 120 and get a 
quotient 3, remainder 65. Therefore, you must read side- 
sector block 3 and get the pointer to the 65th data block. 
Between 2 and 4 block accesses are necessary to access a 
record of a relative data file. 

When creating or expanding a relative file, the following 
takes place: 

First, a directory entry is created for the relative file, 
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containing the record length. Two channels are reserved for 
the relative file, one for the data, the other for the side- 
sectors. If a record pointer is set to a specific record, 
the DOS first checks to see if the record already exists. If 
so, the corresponding block is read and the buffer pointer 
set so that the contents can be accessed, if not, the record 
is created. All records preceding this record number that do 
not already exist are also created. The first byte of a new 
record is written to contain $FF (255), and the rest of the 
record is filled with $00. 

If the corresponding record is at the beginning of a block, 
the rest of the block is filled with empty records. Each 
time a non-existing record is accessed, the error message 
50, RECORD NOT PRESENT is returned. When writing a new 
record, this is not considered an error, but indicates that 
a new record was created. 

You can use this method for creating a new file if you know 
the maximum number of data records. You simply set the 
record pointer to this record and write $ FF (CHR$(255)) to 
this record. By allocating a file like this, the error 
message 50 no longer appears. You also know if there is 
sufficient space on the diskette. If not, the error message 
52, FILE TOO LARGE is returned. 

With a maximum of 6 side sectors, a relative file can 
contain 6 * 120 * 254 = 182,880 bytes. In the case of the 
VIC 1541, this is more than the capacity of the whole 
diskette. With the bigger 8050 drive, which contains more 
than 500K of storage, this may present a limitation. But DOS 
version 2.7 has an expansion of the side-sector procedure 
('super side-sector'), with which a relative file mey 
contain up to 23 MB. DOS 2.7 is contained in the CBM 8250 
and the Commodore hard drives as well as the newer 8050 
drives (see section 5.2). 

Because a relative file requires two data channels, and the 
VIC 1541 has only 3 channels available, only one relative 
file can be open at a time. The third channel can still be 
used for a sequential file open at the same time. With the 
larger CBM drives, more channels are available (3 relative 
files open simultaneously, see also section 5.2). 
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3.5 DOS 2.6 ROM LISTINGS 



****************************** 



C100 


78 






SEI 




C101 


A9 


F7 




LDA 


#$F7 


C103 


2D 


00 


1C 


AND 


$1C00 


C106 


48 






PHA 




C107 


AS 


7F 




LDA 


$7F 


C109 


FO 


05 




BEO 


$C110 


C10B 


68 






PLA 




C10C 


09 


00 




ORA 


#$00 


C10E 


DO 


03 




BNE 


$C113 


C110 


68 






PLA 




cm 


09 


08 




ORA 


#$08 


C113 


8D 


00 


1C 


STA 


$1C00 


C116 


58 






CLI 




C117 


60 






RTS 




****************************** 


C118 


78 






SEI 




C119 


A9 


08 




LDA 


#$08 


CUB 


0D 


00 


1C 


ORA 


$1C00 


CUE 


8D 


00 


1C 


STA 


$1C00 


C121 


58 






CLI 




C122 


60 






RTS 




•a***************************' 


C123 


A9 


00 




LDA 


#$00 


C125 


8D 


6C 


02 


STA 


$026C 


C128 


8D 


6D 


02 


STA 


$026D 


C12B 


60 






RTS 




****************************** 


C12C 


78 






SEI 




C12D 


8A 






TXA 




C12E 


48 






PHA 




C12F 


A9 


50 




LDA 


#$50 


C131 


8D 


6C 


02 


STA 


$026C 


C134 


A2 


00 




LDX 


#$00 


C136 


BD 


CA 


FE 


LDA 


$FECA,X 


C139 


8D 


6D 


02 


STA 


$026D 


C13C 


0D 


00 


1C 


ORA 


$1C00 


C13F 


8D 


00 


1C 


STA 


$1C00 


C142 


68 






PLA 




C143 


AA 






TAX 




C144 


58 






CLI 




C145 


60 






RTS 




***************************** 


C146 


A9 


00 




LDA 


#$00 


C148 


8D 


F9 


02 


STA 


$02F9 


C14B 


AD 


8E 


02 


LDA 


$028E 



turn LED on 
erase LED bit 

drive number 
0? 

not drive , turn LED off 
turn LED on 

turn LED on 
LED on 

erase error flags 

save X register 
8 

turn LED on 

get x register back 

interpret command from 
computer 

last drive number 
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C14E 


85 


7F 




STA 


$7F 


C150 


20 


BC 


E6 


JSR 


$E6BC 


C153 


A5 


84 




LDA 


$84 


C155 


10 


09 




BPL 


$C160 


C157 


29 


OF 




AND 


#S0F 


C159 


C9 


OF 




CMP 


#$0F 


C15B 


F0 


03 




BEO 


$C160 


C15D 


4C 


B4 


D7 


JMP 


$D7B4 


C160 


20 


B3 


C2 


JSR 


$C2B3 


C163 


Bl 


A3 




LDA 


( $A3 ) , Y 


C165 


8D 


75 


02 


STA 


$0275 


C168 


A2 


OB 




LDX 


#$0B 


C16A 


BD 


89 


FE 


LDA 


SFE89 .X 


C16D 


CD 


75 


02 


CMP 


$0275 


C170 


F0 


08 




BEO 


$C17A 


C172 


CA 






DEX 




C173 


10 


F5 




BPL 


$C16A 


C175 


A9 


31 




LDA 


#$31 


C177 


4C 


C8 


CI 


JMP 


$C1C8 


C17A 


8E 


2A 


02 


STX 


$022A 


C17D 


E0 


09 




CPX 


#$09 


C17F 


90 


03 




BCC 


$C184 


C181 


20 


EE 


CI 


JSR 


$C1EE 


C184 


AE 


2A 


02 


LDX 


$022A 


C187 


BD 


95 


FE 


LDA 


$FE95,X 


C18A 


85 


6F 




STA 


$6F 


C18C 


BD 


Al 


FE 


LDA 


$FEA1,X 


C18F 


85 


70 




STA 


$70 


C191 


6C 


6F 


00 


JMP 


($006F) 


****************************** 


C194 


A9 


00 




LDA 


#$00 


C196 


8D 


F9 


02 


STA 


$02F9 


C199 


AD 


6C 


02 


LDA 


$026C 


C19C 


DO 


2A 




BNE 


$C1C8 


C19E 


AO 


00 




LDY 


#$00 


C1A0 


98 






TYA 




C1A1 


84 


80 




STX 


$80 


C1A3 


84 


81 




STY 


$81 


C1A5 


84 


A3 




STY 


$A3 


C1A7 


20 


C7 


E6 


JSR 


$E6C7 


C1AA 


20 


23 


CI 


JSR 


$C123 


C1AD 


A5 


7F 




LDA 


$7F 


C1AF 


8D 


8E 


02 


STA 


$028E 


C1B2 


AA 






TAX 




C1B3 


A9 


00 




LDA 


#$00 


C1B5 


95 


FF 




STA 


$FF,X 


C1B7 


20 


BD 


CI 


JSR 


$C1BD 


C1BA 


4C 


DA 


D4 


JMO 


$D4DA 


****************************** 


C1BD 


AO 


28 




LDY 


#$28 


C1BF 


A9 


00 




LDA 


#$00 



drive number 
prepare 'ok' message 
secondary address 

15, command channel 
yes 

to OPEN command 

determine line length and 

erase flags 

get first character 

and store 

11 

commands 

compare to first character 
found? 



not found 

31, 'syntax error' 

number of command words 

command number < 9? 
test for 'R', 's', and ' n ' 
command number 
jump address lo 

jump address hi 

jump to command 

prepare error message after 
executing command 

flag set? 

yes, then set error message 

error number 
track number 
sector number 

prepare 'ok' message 
erase error flag 
drive number 

save as last drive number 



erase input buffer 
close internal channel 

erase input buffer 
erase 41 characters 
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C1C1 


99 


00 


02 


STA 


$0200, Y 


$200 to $228 


C1C4 


88 






DEY 






C1C5 


10 


FA 




BPL 


$C1C1 




C1C7 


60 






RTS 






****************************** 


give error message 














(track & sector) 


C1C8 


AO 


00 




LDY 


#$00 




C1CA 


84 


80 




STY 


$80 


track = 


C1CC 


84 


81 




STY 


$81 


sector = 


C1CE 


4C 


45 


E6 


JMP 


$E645 


error number acc , generate 














error message 


****************************** 


check input line 


C1D1 


A2 


00 




LDX 


#$00 




C1D3 


8E 


7A 


02 


STX 


$027A 


pointer to drive number 


C1D6 


A9 


3A 




LDA 


#$3A 




C1D8 


20 


68 


C2 


JSR 


$C268 


test line to ' : ' or to end 


C1DB 


F0 


05 




BEQ 


$C1E2 


no colon found? 


C1DD 


88 






DEY 






C1DE 


88 






DEY 






C1DF 


8C 


7A 


02 


STY 


$027A 


point to drive number 














(before colon) 


C1E2 


4C 


68 


C3 


JMP $C368 


get drive # and turn LED on 


****************************** 


check input line 


C1E5 


AO 


00 




LDY 


#$00 


pointer to input buffer 


C1E7 


A2 


00 




LDX 


#$00 


counter for commas 


C1E9 


A9 


3A 




LDA 


#$3A 


i . t 


C1EB 


4C 


68 


C2 


JMP 


$C268 


test line to colon or to enc 


****************************** 


check input line 


C1EE 


20 


E5 


CI 


JSR 


$C1E5 


test line to ':* or end 


C1F1 


DO 


05 




BNE 


$C1F8 


colon found? 


C1F3 


A9 


34 




LDA 


#$34 




C1F5 


4C 


C8 


CI 


JMP 


$C1C8 


34, 'syntax error' 


C1F8 


88 






DEY 






C1F9 


88 






DEY 




set pointer to colon 


C1FA 


8C 


7A 


02 


STY 


S027A 


position of the drive no. 


C1FD 


8A 






TXA 




comma before the colon 


C1FE 


DO 


F3 




BNE 


$C1F3 


yes, then 'syntax error' 


C200 


A9 


3D 




LDA 


#$3D 


i _ i 


C202 


20 


68 


C2 


JSR 


$C268 


check input to '=' 


C205 


8A 






TXA 




comma found? 


C206 


FO 


02 




BEQ 


SC20A 


no 


C208 


A9 


40 




LDA 


#$40 


bit 6 


C20A 


09 


21 




ORA 


#$21 


and set bit and 5 


C20C 


8D 


8B 


02 


STA 


$028B 


flag for syntax check 


C20F 


E8 






INX 






C210 


8E 


77 


02 


STX 


$0277 




C213 


8E 


78 


02 


STX 


$0278 




C216 


AD 


8A 


02 


LDA 


$028A 


wildcard found? 


C219 


FO 


OD 




BEQ 


SC228 


no 


C21B 


A9 


80 




LDA 


#$80 




C21D 


OD 


8B 


02 


ORA 


$028B 


set bit 7 


C220 


8D 


8B 


02 


STA 


$028B 
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C223 


A9 


00 




LDA 


#$00 


C225 


8D 


8A 


02 


STA 


$028A 


C228 


98 






TYA 




C229 


FO 


29 




BEQ 


SC254 


C22B 


9D 


7A 


02 


STA 


$027A,X 


C22E 


AD 


77 


02 


LDA 


$0277 


C231 


8D 


79 


02 


STA 


$0279 


C234 


A9 


8D 




LDA 


#$8D 


C236 


20 


68 


C2 


JSR 


SC268 


C239 


E8 






INX 




C23A 


8E 


78 


02 


STX 


$0278 


C23D 


CA 






DEX 




C23E 


AD 


8A 


02 


LDA 


$028A 


C24A 


FO 


02 




BEO 


$C245 


C243 


A9 


08 




LDA 


#$08 


C245 


EC 


77 


02 


CPX 


$0277 


C248 


FO 


02 




BEO 


$C24C 


C24A 


09 


04 




ORA 


#$04 


C24C 


09 


03 




ORA 


#$03 


C24E 


4D 


8B 


02 


EOR 


S028B 


C251 


8D 


8B 


02 


STA 


$028B 


C254 


AD 


8B 


02 


t na 

LUn 




C257 


AE 


2A 


02 


LDX 


$022A 


C25A 


3D 


AS 


FE 


AND 


$FEA5,X 


C25D 


DO 


01 




BNE 


SC260 


C25F 


60 






RTS 




C260 


8D 


6C 


02 


STA 


$026C 


C263 


A9 


30 




LDA 


#$30 


C265 


4C 


C8 


CI 


JMP 


$C1C8 


****************************** 


C268 


8D 


75 


02 


STA 


$0275 


C26B 


CC 


74 


02 


CPY 


$0274 


C26E 


BO 


2E 




BCS 


$C29E 


C270 


Bl 


A3 




LDA 


($A3) ,Y 


C272 


C8 






I NY 


C273 


CD 


75 


02 


CMP 


$0275 


C276 


FO 


28 




BEQ 


SC2A0 


C278 


C9 


2A 




CMP 


#$2A 


C27A 


FO 


04 




BEO 


$C280 


C27C 


C9 


3F 




CMP 


#$3F 


C27E 


DO 


03 




BNE 


$C283 


C280 


EE 


8A 


02 


INC 


$028A 


C283 


C9 


2C 




CMP 


#$2C 


C285 


DO 


E4 




BNE 


$C26B 


C287 


98 






TYA 




C288 


9D 


7B 


02 


STA 


$027B,X 


C28B 


AD 


8A 


02 


LDA 


$028A 


C28E 


29 


7F 




AND 


#$7F 


C290 


FO 


07 




BEO 


$C299 


C292 


A9 


80 




LDA 


#$80 


C294 


95 


E7 




STA 


$E7,X 


C296 


8D 


8A 


02 


STA 


$028A 


C299 


E8 






INX 





reset wildcard flag 

'=' found? 

no 

number of commas before '=' 
shift CR 

check line to end 
increment comma counter 
store # of commas 

wildcard found? 
no 

set bit 3 

comma after '='? 

no 

set bit 2 

set bits and 1 

as flag for syntax check 

syntax flag 

command number 

combine with check byte 



set error flag 

30, "syntax error' 

search characters in input 
buffer 

save character 
already done? 
yes 

get char from buffer 

compared with char 

found 

i * i 

t ? i 

set wildcard flag 



note comma position 
wildcard flag 

no wildcard 

note flag 

and save as wildcard flag 
inc comma counter 
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C29A 


EO 


04 




CPX 


#$04 


C29C 


90 


CD 




BCC 


$C26B 


C29E 


AO 


00 




LDY 


#$00 


C2A0 


AD 


74 


02 


LDA 


$0274 


C2A3 


9D 


7B 


02 


STA 


$027B,X 


C2A6 


AD 


8A 


02 


LDA 


$028A 


C2A9 


29 


7F 




AND 


#$7F 


C2AB 


F0 


04 




BE0 


$C2B1 


C2AD 


A9 


80 




LDA 


#$80 


C2AF 


95 


E7 




STA 


$E7,X 


C2B1 


98 






TYA 




C2B2 


60 






RTS 




****************************** 


C2B3 


A4 


A3 




LDY 


$A3 


C2B5 


F0 


14 




BEp 


$C2CB 


C2B7 


88 






DEY 




C2B8 


F0 


10 




BED 


$C2CA 


C2BA 


B9 


00 


02 


LDA 


$0200, Y 


C2BD 


C9 


OD 




CMP 


#$0D 


C2BF 


FO 


OA 




BED 


$C2CB 


C2C1 


88 






DEY 




C2C2 


B9 


00 


02 


LDA 


$0200, Y 


C2C5 


C9 


OD 




CMP 


#$0D 


C2C7 


FO 


02 




BEQ 


$C2CB 


C2C9 


C8 






INY 




C2CA 


C8 






INY 




C2CB 


8C 


74 


02 


STY 


$0274 


C2CE 


CO 


2A 




CPY 


#$2A 


C2D0 


AO 


FF 




LDY 


#$FF 


C2D2 


90 


08 




BCC 


$C2DC 


C2D4 


8C 


2A 


02 


STY 


S022A 


C2D7 


A9 


32 




LDA 


#$32 


C2D9 


4C 


C8 


CI 


JMP 


$C1C8 


*****************************! 


C2DC 


AO 


00 




LDY 


#$00 


C2DE 


98 






TYA 




C2DF 


85 


A3 




STA 


$A3 


C2E1 


8D 


58 


02 


STA 


$0258 


C2E4 


8D 


4A 


02 


STA 


S024A 


C2E7 


8D 


96 


02 


STA 


$0296 


C2EA 


85 


D3 




STA 


$D3 


C2EC 


8D 


79 


02 


STA 


$0279 


C2EF 


8D 


77 


02 


STA 


$0277 


C2F2 


8D 


78 


02 


STA 


$0278 


C2F5 


8D 


8A 


02 


STA 


$028A 


C2F8 


8D 


6C 


02 


STA 


S026C 


C2FB 


A2 


05 




LDX 


#$05 


C2FD 


9D 


79 


02 


STA 


$0279, X 


C300 


95 


D7 




STA 


$D7,X 


C302 


95 


DC 




STA 


$DC,X 


C304 


95 


El 




STA 


$E1,X 


C306 


95 


E6 




STA 


$E6,X 



4 commas already? 
no, continue 

set flag for line end 

wildcard flag 

no wildcard 

set flag 



check line length 

ptr to command input buffer 

zero? 

one? 

pointer to input buffer 
•CR' 

yes, line end 

preceding character 

■CR' 

yes 

pointer to old value again 

same line length 

compare with 42 characters 

smaller, ok 

32, 'syntax error' line too 
long 

erase flag for input command 



pointer to input buffer lo 
record length 
file type 



comma counter 
ii 

wildcard flag 
error flag 

flags for line analysis 
directory sectors 
buffer pointer 
drive number 
wildcard flag 
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C308 


9D 


7F 


02 


STA 


$027F 


,X 


C30B 


9D 


84 


02 


STA 


$0284 


,X 


C30E 


CA 






DEX 






C30F 


DO 


EC 




BNE 


SC2FD 




C311 


60 






RTS 






***************************** 


C312 


AD 


78 


02 


LDA 


$0278 




C315 


8D 


77 


02 


STA 


$0277 




C318 


A9 


01 




LDA 


#$01 




C31A 


8D 


78 


02 


STA 


$0278 




C31D 


8D 


79 


02 


STA 


$0279 




C320 


AC 


8E 


02 


LDY 


S028E 




C323 


A2 


00 




LDX 


#$00 




C325 


86 


D3 




STX 


$D3 




C327 


BD 


7A 


02 


LDA 


$027A, 


,X 


C32A 


20 


3C 


C3 


JSR 


$C33C 




C32D 


A6 


D3 




LDX 


$D3 




C32F 


9D 


7A 


02 


STA 


$027A 




C332 


98 






TYA 






C333 


95 


E2 




STA 


$E2,X 




C335 


B8 






INX 






C336 


EC 


78 


02 


CPX 


$0278 




C339 


90 


EA 




BCC 


$C325 




C33B 


60 






RTS 






****************************** 


C33C 


AA 






TAX 






C33D 


AO 


00 




LDY 


#$00 




C33F 


A9 


3A 




LDA 


#$3A 




C341 


DD 


01 


02 


CMP 


$0201, 


X 


C344 


F0 


OC 




BEO 


$C352 




C346 


DD 


00 


02 


CMP 


$0200, 


X 


C349 


DO 


16 




BNE 


$C361 




C34B 


E8 






INX 






C34C 


98 






TYA 






C34D 


29 


01 




AND 


#$01 




C34F 


A8 






TAY 






C350 


8A 






TXA 






C351 


60 






RTS 






C352 


BD 


00 


02 


LDA 


$0200, 


X 


C355 


E8 






INX 






C356 


E8 






INX 






C357 


C9 


30 




CMP 


#$30 




C359 


F0 


F2 




BEO 


$C34D 




C35B 


C9 


31 




CMP 


#$31 




C35D 


F0 


EE 




BEO 


$C34D 




C35F 


DO 


EB 




BNE 


$C34C 




C361 


98 






TYA 






C362 


09 


80 




ORA 


#$80 




C364 


29 


81 




AND 


#$81 




C366 


DO 


E7 




BNE 


$C34F 





****************************** 



track number 
sector number 



preserve drive number 
number of commas 
save 

number of drive numbers 
last drive number 



position of the colon 

get drive no. before colon 

save exact position 

drive number in table 

got all drive numbers? 
no, continue 



search for drive number 
note position 

■ • * 

colon behind it? 
yes 

colon here? 
no 



drive number 



get drive number 



*0'? 

yes 

■1'? 

yes 

no, use last drive number 
last drive number 
set bit 7, uncertain drive # 
erase remaining bits 



get drive number 
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A9 


00 




LDA 


U \J 




an 
o u 


8B 


02 


STA 


S028B 


C36D 


AC 


7A 


02 


LDY 


5027A 


C370 


Bl 


A3 




LDA 


( $A3) i Y 


C37 2 


20 


BD 


C3 


JSR 


$C3BD 


C37 5 


10 


11 




BPL 


$C388 


C377 


C8 






I NY 




C378 


CC 


74 


02 


CPY 


$0274 


C37B 


BO 


06 




BCS 


$C383 


C37D 


AC 


74 


02 


LDY 


S0274 


C380 


88 






DEY 




C381 


DO 


ED 




BNE 


$C370 


C383 


CE 


8B 


02 


DEC 


$028B 


C386 


A9 


00 




LDA 


#$00 


C388 


29 


01 




AND 


#$01 


C38A 


85 


7F 




STA 


$7F 


C38C 


4C 


00 


CI 


JMP 


SC100 


****************************** 


C38F 


A5 


7F 




LDA 


$7F 


C391 


49 


01 




EOR 


#$01 


C393 


29 


01 




AND 


#$01 


C395 


85 


7F 




STA 


$7F 


C397 


60 






RTS 




****************************** 


C398 


AO 


00 




LDY 


#$00 


C39A 


AD 


77 


02 


LDA 


$0277 


C39D 


CD 


78 


02 


CMP 


$0278 


C3A0 


F0 


16 




BEO 


SC3B8 


C3A2 


CE 


78 


02 


DEC 


$0278 


C3A5 


AC 


78 


02 


LDY 


$0278 


C3A8 


B9 


7A 


02 


LDA 


$027A>Y 


C3AB 


A8 






TAY 




C3AC 


Bl 


A3 




LDA 


(SA3) ,Y 


C3AE 


AO 


04 




LDY 


#$04 


C3B0 


D9 


BB 


FE 


CMP 


$ FEBB , Y 


C3B3 


F0 


03 




BEO 


$C3B8 


C3B5 


88 






DEY 




C3B6 


DO 


F8 




BNE 


$C3B0 


C3B8 


98 






TYA 




C3B9 


8D 


96 


02 


STA 


$0296 


C3BC 


60 






RTS 




****************************** 


C3BD 


C9 


30 




CMP 


#$30 


C3BF 


F0 


06 




BEO 


$C3C7 


C3C1 


C9 


31 




CMP 


#$31 


C3C3 


F0 


02 




BEO 


SC3C7 


C3C5 


09 


80 




ORA 


#$80 


C3C7 


29 


81 




AND 


#$81 


C3C9 


60 






RTS 





erase syntax flag 

position in command line 

get chars from command buffer 

get drive number 

certain number? 

increment pointer 

line end? 

yes 



search line for drive no. 



drive number 
turn LED on 

reverse drive number 
drive number 
switch bit 



establish file type 

■=* found? 

no 

get pointer 

set pointer to character 
behind '=' 

pointer to buffer 

compare with marker for 

file type 

■S" , 'P' , 'U 1 , 'R' 

agreement 



note file type (1-4) 



check drive number 
•0' 

■l 1 

no zero or one, then set bit 
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*****.**********.************* ver . fy dr . ve number 



C3CA 


A9 


00 




LDA 


#$00 




C3CC 


85 


6F 




STA 


S6F 




C3CE 


8D 


8D 


02 


STA 


$028D 




C3D1 


48 






PHA 






C3D2 


AE 


78 


02 


LDX 


$0278 


niimbsiT Of Hri 70 nnmhprc 


C3D5 


68 






PLA 




C3D6 


05 


6F 




ORA 


$6F 




C3D8 


48 






PHA 




C3D9 


A9 


01 




LDA 


#$01 




C3DB 


85 


6F 




STA 


$6F 




C3DD 


CA 






DEX 






C3DE 


30 


OF 




BMI 


$C3EF 




C3E0 


B5 


E2 




LDA 


SE2,X 




C3E2 


10 


04 




BPL 


$C3E8 




C3E4 


06 


6F 




ASL 


$6F 


\ 


C3E6 


06 


6F 




ASL 


$6F 




C3E8 


4A 






LSR 


A 




C3E9 


90 


EA 




BCC 


$C3D5 




C3EB 


06 


6F 




ASL 


$6F 




C3ED 


DO 


E6 




BNE 


$C3D5 




C3EF 


68 






PLA 






C3F0 


AA 






TAX 






C3F1 


BD 


3F 


C4 


LDA 


$C43F,X 


get syntax flag 


C3F4 


48 






PHA 




C3F5 


29 


03 




AND 


#$03 




C3F7 


8D 


8C 


02 


STA 


$028C 




C3FA 


68 






PLA 






C3FB 


OA 






ASL 


A 




C3FC 


10 


3E 




BPL 


$C43C 




C3FE 


A5 


E2 




LDA 


$E2 




C400 


29 


01 




AND 


#$01 


isolate drive number 


C402 


85 


7F 




STA 


$7F 




C404 


AD 


8C 


02 


LDA 


$028C 




C407 


F0 


28 




BE0 


$C434 




C409 


20 


3D 


C6 


JSR 


$C63D 


initialze drive 


C40C 


r u 






BEQ 


$C4 20 


error? 


C40E 


20 


8F 


C3 


JSR 


$C38F 


switch to other drive 


C411 


A9 


00 




LDA 


#$00 




C413 


8D 


8C 


02 


STA 


$028C 




C416 


20 


3D 


C6 


JSR 


$C63D 


initialize drive 


C419 


F0 


IE 




BEQ 


$C439 


no error? 


C41B 


A9 


74 




LDA 


#$74 




C41D 


20 


C8 


CI 


JSR 


$C1C8 


74, 'drive not ready' 


C420 


20 


8F 


C3 


JSR 


$C38F 


C423 


20 


3D 


C6 


JSR 


$C63D 


initialize drive 


C426 


08 






PHP 






C427 


20 


8F 


C3 


JSR 


$C38F 


switch to other drive 


C42A 


28 






PLP 






C42B 


F0 


OC 




BEO 


$C439 


no error? 


C42D 


A9 


00 




LDA 


#$00 




C42F 


8D 


8C 


02 


STA 


$028C 


number of drives 


C432 


F0 


05 




BEO 


SC439 




C434 


20 


3D 


C6 


JSR 


$C63D 


initialize drive 
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C437 


DO 


E2 




BNE $C41B 


error? 


C439 


4C 


00 


CI 


JMP $000 


Turn LED on 


C43C 


2A 






ROL A 


drive # from carry after bit 


C43D 


4C 


00 


C4 


JMP $C400 




****************************** 


flags for drive check 


C440 


00 


80 


41 


01 01 01 01 81 




C448 


81 


81 


81 


42 42 42 42 




****************************** 


search for file in directory 


C44F 


20 


CA 


C3 


JSR $C3CA 


llllUlall£C UllVC 


C452 


A9 


00 




LDA #$00 




C454 


8D 


92 


02 


STA $0292 


pointer 


C457 


20 


AC 


C5 


JSR $C5AC 


read first directory block 


C45A 


DO 


19 




BNE $C475 


entry present? 


C45C 


CE 


8C 


02 


DEC $028C 


drive number clear? 


C45F 


10 


01 




BPL $C462 


no 


C461 


60 






RTS 




C462 


A9 


01 




LDA #$01 




C464 


8D 


8D 


02 


STA 50 28D 




C467 


20 


8F 


C3 


JSR $C38F 


change drive 


C46A 


20 


00 


CI 


JSR $C100 


Turn LED on 


C46D 


4C 


52 


C4 


JMP $C452 


and search 


C470 


20 


17 


C6 


JSR $C617 


search next file in directory 


C473 


F0 


10 




BEO $C485 


not found? 


C475 


20 


D8 


C4 


JSR $C4D8 


verify directory entry 


C478 


AD 


8F 


02 


LDA $028F 




C47B 


F0 


01 




BEO $C47E 


more files? 


C47D 


60 






RTS 




C47E 


AD 


53 


02 


LDA $0253 




C481 


30 


ED 




BMI $C470 


file not found? 


C483 


10 


FO 




BPL $C475 


yes 


C485 


AD 


8F 


02 


LDA $028F 




C488 


F0 


D2 




BEO $C45C 




C48A 


60 






RTS 




C48B 


20 


04 


C6 


JSR $C604 


search next directory block 


C48E 


F0 


1A 




BEO $C4AA 


not found? 


C490 


DO 


28 




BNE $C4BA 




C492 


A9 


01 




LDA #$01 




C494 


8D 


8D 


02 


STA $028D 




C497 


20 


8F 


C3 


JSR $C38F 


change drive 


C49A 


20 


00 


CI 


JSR SC100 


turn LED on 


C49D 


A9 


00 




LDA #$00 




C49F 


8D 


92 


02 


STA $0292 




C4A2 


20 


AC 


C5 


JSR $C5AC 


read directory block 


C4A5 


DO 


13 




BNE $C4BA 


found? 


C4A7 


8D 


8F 


02 


STA $028F 




C4AA 


AD 


8F 


02 


LDA $028F 




C4AD 


DO 


28 




BNE $C4D7 




C4AF 


CE 


8C 


02 


DEC $028C 
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C4B2 


10 


DE 




BPL 


$C492 


C4B4 


60 






RTS 








17 


C6 


JSR 


SC617 


C4B8 


F0 


FO 




BEQ 


$C4AA 


C4BA 


20 


D8 


C4 


JSR 


$C4D8 


C4BD 


AE 


53 


02 


LDX 


$0253 


C4C0 


10 


07 




BPL 


$C4C9 


C4C2 


AD 


8F 


02 


LDA 


$028F 


C4C5 


F0 


EE 




BEQ 


SC4B5 


C4C7 


DO 


OE 




BNE 


$C4D7 


C4C9 


AD 


96 


02 


LDA 


$0296 


C4CC 


F0 


09 




BEQ 


$C467 


C4CE 


B5 


E7 




LDA 


$E7,X 


C4D0 


29 


07 




AND 


#$07 


C4D2 


CD 


96 


02 


CMP 


$0296 


C4D5 


DO 


DE 




BNE 


$C4B5 


C4D7 


60 






RTS 




C4D8 


A2 


FF 




LDX 


#$FF 


C4DA 


8E 


53 


02 


STX 


$0253 


C4DD 


E8 






I NX 




C4DE 


8E 


8A 


02 


STX 


$028A 


C4E1 


20 


89 


C5 


JSR 


$C589 


C4E4 


F0 


06 




BEO 


$C4EC 


C4E6 


60 






RTS 




C4E7 


20 


94 


C5 


JSR 


$C594 


C4EA 


DO 


FA 




BNE 


$C4E6 


C4EC 


A5 


7F 




LDA 


$7F 


C4EE 


55 


E2 




EOR 


$E2,X 


C4F0 


4A 






LSR 


A 


C4FX 


90 


OB 




BCC 


$C4FE 


C4F3 


29 


40 




AND 


#$40 


C4F5 


F0 


FO 




BEQ 


$C4E7 


i-*»r / 


no 






LDA 


#$02 


C4F9 


CD 


8C 


02 


CMP 


$028C 


C4FC 


F0 


E9 




BEQ 


$C4E7 


C4FE 


BD 


7A 


02 


LDA 


$027A,X 


C501 


AA 






TAX 




C502 


20 


A6 


C6 


JSR 


SC6A6 


C505 


AO 


03 




LDY 


#$03 


C507 


4C 


ID 


C5 


JMP 


$C51D 


C50A 


BD 


00 


02 


LDA 


$0200, X 


C50D 


Dl 


94 




CMP 


($94) ,Y 


C50F 


F0 


OA 




BEO 


$C51B 


C511 


C9 


3F 




CMP 


#$3F 


C513 


DO 


D2 




BNE 


SC4E7 


C515 


Bl 


94 




LDA 


($94) ,Y 


C517 


C9 


AO 




CMP 


#$A0 


C519 


FO 


CC 




BEQ 


$C4E7 


C51B 


E8 






INX 




C51C 


C8 






INY 





next entry in directory 
not found? 
check entry 

file found? 

yes 

no, then done 



file type 

same as desired file type? 
no 



flag for data found 
set pointer to data 



pointer to next file 
end, then done 
drive number 



search both drives? 
yes 

get length of filename 



get chars out of command line 

same character in directory? 

yes 

'?' 

no 

shift blank, end of name? 
yes 

increment pointer 
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C51D 


EC 


76 


02 


CPX 


$0276 


end of the name in the command? 




BO 


09 




BCS 


$C52B 


yes 




BD 


00 


02 


LDA 


S0900 -X 


next character 


C525 


C9 


2A 




CMP 


#$2A 


i * i 


C527 


FO 


0C 




BEQ 


$C535 


yes, file found 


C529 


DO 


DF 




BNE 


$C50A 


continue search 


C52B 


CO 


13 




CPY 


#$13 


19 


C52D 


BO 


06 




BCS 


$C535 


reached end of name 


C52F 


Bl 


94 




LDA 


( $94 ) , Y 




C531 


C9 


AO 




CMP 


#$A0 


shift blank, end of name 


C533 


DO 


B2 




BNE 


$C4E7 


not found 


C535 


AE 


79 


02 


LDX 


$0279 




C538 


8E 


53 


02 


STX 


$0253 




C53B 


B5 


E7 




LDA 


$E7 ,X 




C53D 


29 


80 




AND 


#$80 




C53F 


8D 


8A 


02 


STA 


$028A 




C542 


AD 


94 


02 


LDA 


$0294 




C545 


95 


DD 




STA 


$DD,X 




C547 


A5 


81 




LDA 


$81 


sector number of the directory 


C549 


95 


D8 




STA 


$D8 ,X 


enter in table 


C54B 


AO 


00 




LDY 


#$00 




C54D 


Bl 


94 




LDA 


( $94 ) , Y 


file type 


C54F 


C8 






INY 






C550 


48 






PHA 






C551 


29 


40 




AND 


#$40 


isolate scratch-protect bit 


C553 


85 


6F 




STA 


$6F 


(6) and save 


C555 


68 






PLA 






C556 


29 


DF 




AND 


#$DF 


erase bit 7 


C558 


30 


02 




BMI 


$C55C 




C55A 


09 


20 




ORA 


#$20 


set bit 5 


C55C 


29 


27 




AND 


#$27 


erase bits 3 and 4 


C55E 


05 


6F 




ORA 


$6F 


get bit 6 again 


C560 


85 


6F 




STA 


$6F 




C562 


A9 


80 




LDA 


#$80 




C564 


35 


E7 




AND 


$E7 ,X 


isolate flag for wildcard 


C566 


05 


6F 




ORA 


$6F,X 




C568 


95 


E7 




STA 


$E7 ,X 


write in table 


C56A 


B5 


E2 




LDA 


$E2,X 




C56C 


29 


80 




AND 


#$80 




C56E 


05 


7F 




ORA 


$7F 


drive number 


C570 


95 


E2 




STA 


$E2 ,X 




C572 


Bl 


94 




LDA 


( $94) f Y 




C574 


9D 


80 


02 


STA 


$0280, X 


first track of file 


C577 


C8 






INY 






C578 


Bl 


94 




LDA 


( $94) , Y 




C57A 


9D 


85 


02 


STA 


$0285,X 


get sector from directory 


C57D 


AD 


58 


02 


LDA 


$0258 


record length 


C580 


DO 


07 




BNE 


$C589 


C582 


AO 


15 




LDY 


#$15 




C584 


Bl 


94 




LDA 


($94), Y 


record length 


C586 


8D 


58 


02 


STA 


$0258 


get from directory 


C589 


A9 


FF 




LDA 


#$FF 


C58B 


8D 


8F 


02 


STA 


$028F 




C58E 


AD 


78 


02 


LDA 


$0278 
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C591 


8D 


79 


02 


QT2V 
Din 




C594 


CE 


79 








C597 


10 


01 




DT)T 




C599 


60 






DTC 




C59A 


AE 


79 


02 


LDX 


$0279 


C59D 


B5 


E7 






p d / (A 


C59F 


30 


05 




DMT 

Dril 




C5A1 


BD 


80 




LDA 


pUZoU r A 


C5A4 


DO 


EE 




BNE 




C5A6 


A9 


00 






ff P UU 


C5A8 


8D 


8F 


02 


era 

Din 




C5AB 


60 






DTC 
Kit) 




C5AC 


AO 


00 




LDY 


#$00 


C5AE 


8C 


91 


02 


QTV 
Oil 


cn 9Q l 


C5B1 


88 






DEY 




C5B2 


8C 


53 


02 


C.TV 
Oil 




C5B5 


AD 


85 


FE 


LDA 


$FE85 


C5B8 


85 


80 




STA 


$80 


C5BA 


A9 


01 




t na 


ffp U i 


C5BC 


85 


81 




CTa 

Din 




C4BE 


8D 


93 


02 


STA 




C5C1 


20 


75 


D4 


JSR 


e nA7 


C5C4 


AD 


93 


02 


LDA 


sn 


C5C7 


DO 


01 




BNE 


$C5CA 


C5C9 


60 






RTS 




C5CA 


A9 


07 




LDA 


*Sfl7 


C5CC 


8D 


95 


02 


STA 


$0295 


C5CF 


A9 


00 




LDA 




C5D1 


20 


F6 


D4 


JSR 


< n 4 pfi 


C5D4 


8D 


93 


02 


CTa 


P U £7J 


C5D7 


20 


E8 


D4 


JSR 


C n4 pfl 


C5DA 


CE 


95 


02 


DEC 


c n on c 


C5DD 


AO 


00 




LDY 


#$00 


C5DF 


Bl 


94 




LDA 


\ p -7 ** / f I 


C5E1 


DO 


18 




BNE 


6r>cpn 
p r i3 


C5E3 


AD 


91 


02 


F na 


e a nn l 
P 


C5E6 


DO 


2F 




BNE 


$C617 


C5E8 


20 


3B 


DE 


JSR 


$DE3B 


C5EB 


A5 


81 




r na 


p 1 


C5ED 


8D 


91 


02 


CTa 


P U£?J. 


C5F0 


A5 


94 




t na 


P 3 ** 


C5F2 


AE 


92 


02 


LDX 


$0292 


C5F5 


8D 


92 


02 


STA 


$0292 


C5F8 


FO 


ID 




BEO 


$C617 


C5FA 


60 






RTS 




C5FB 


A2 


01 




LDX 


#$01 


C5FD 


EC 


92 


02 


CPX 


$0292 


C600 


DO 


2D 




BNE 


$C62F 


C602 


FO 


13 




BEO 


$C617 


C604 


AD 


85 


FE 


LDA 


$FE85 



wildcard flag set? 
yes 

track number already set 
yes 



18, directory track 

sector 1 
read sector 



number of directory entries (-1) 

get pointer from buffer 
save as track number 
set buffer pointer 
decrement counter 

first byte from directory 



get track and sector number 
sector number 

buffer pointer 

buffer pointer to one? 
18, track number of BAM 
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v-u U / 


O D 


80 


STA 


$80 


track number 


C609 


AD 


90 02 " 


LDA 


$0290 






Q G 

□ J 


Q 1 
OX 


Ox A 


9 O J. 




pcnp 


zu 


1 3 U*i 


JSR 


$D475 


read block 


C611 


AD 


94 02 


LDA 


$0294 




C614 


20 


C8 D4 


JSR 


$D4C8 


set buffer pointer 


J. / 




r r 


LDA 


tr v r r 




C619 


8D 


53 02 


STA 


$0253 


erase-file found flag 


C61C 


AD 


95 02 


LDA 


$0295 




C61F 


30 


08 


BMI 


$C629 


all directory entries checked? 


C621 


A9 


20 


LDA 


#$20 




Cg 23 


20 


C6 Dl 


JSR 


$D1C6 


inc buffer ptr by 32, next entry 




4C 


D7 C5 


J MP 


$C567 


and continue 


C629 


20 


4D D4 


JSR 


$D44D 


set buffer pointer 


C62C 


4C 


C4 C5 


JMP 


$C5C4 


read next block 


C62F 


A5 


94 


LDA 


$94 




C631 


8D 


94 02 


STA 


$0294 




C634 


20 


3B DE 


JSR 


$DE3B 


get track & sector no, from buffer 


C637 


A5 


81 


LDA 


$81 




C639 


8D 


90 02 


STA 


$0290 


save sector number 


C63C 


60 




RTS 






****************************** 


test and initialize drive 


C63D 


AS 


68 


LDA 


$68 




C63F 


DO 


28 


BNE 


$C669 




C641 


A6 


7F 


LDX 


$7F 


drive number 


C643 


56 


1C 


LSR 


$1C,X 


disk changed? 


C645 


90 


22 


BCC 


$C669 


no, then done 


C647 


A9 


FF 


LDA 


$FF 




C649 


8D 


98 02 


STA 


$0298 


set error flag 


C64C 


20 


0E DO 


JSR 


$D00E 


read directory track 


C64F 


AO 


FF 


LDY 


#$FF 




C651 


C9 


02 


CMP 


#$02 


20, 'read error'? 


C653 


F0 


OA 


BEQ 


$C65F 


yes 


C655 


C9 


03 


CMP 


#$03 


21, 'read error'? 


C657 


F0 


06 


BEQ 


$C65F 


ves 


C659 


C9 


OF 


CMP 


#$0F 


74, 'drive not ready'? 


C65B 


F0 


02 


BEQ 


$C65F 


yes 


C65D 


AO 


00 


LDY 


#$00 




C65F 


A6 


7F 


LDX 


$7F 


drive number 


C661 


98 




TYA 




save error flag 


C662 


95 


FF 


STA 


$FF,X 


C664 


DO 


03 


BNE 


$C669 


error? 


C666 


20 


42 DO 


JSR 


$D042 


load BAM 


C669 


A6 


7F 


LDX 


$7F 


drive number 


C66B 


B5 


FF 


LDA 


$FF,X 


transmit error code 


C66D 


60 




RTS 






****************************** 


name of file in directory buffer 


C66E 


48 




PHA 






C66F 


20 


A6 C6 


JSR 


$C6A6 


get end of the name 


C672 


20 


88 C6 


JSR 


$C688 


write filename in buffer 



C675 68 PLA 
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compare len with max length 
pad with 'Shift blank' 

buffer number 
times 2 as pointer 

buffer pointer after $94/$95 

transmit characters in buffer 

buffer already full? 



C676 


38 






SEC 




C677 


ED 


4B 


02 


SBC 


$024B 


C67A 


AA 






TAX 




C67B 


PO 


OA 




BEO 


$C687 


C67D 


90 


08 




BCC 


$C687 


C67F 


A9 


AO 




LDA 


#$A0 


C681 


91 


94 




STA 


($94), Y 


C683 


C8 






INY 




C684 


CA 






DEX 




C685 


DO 


FA 




BNE 


$C681 


C687 


60 






RTS 




*****************************: 


C688 


98 






TYA 




C689 


OA 






ASL 


A 


C68A 


A8 






TAY 




C68B 


B9 


99 


00 


LDA 


$0099, Y 


C68E 


85 


94 




STA 


$94 


C690 


B9 


9A 


00 


LDA 


$009A 


C693 


85 


95 




STA 


$95 


C695 


AO 


00 




LDY 


#$00 


C697 


BD 


00 


02 


LDA 


$0200 ,X 


C69A 


91 


94 




STA 


($94) ,Y 


C69C 


C8 






INY 


C69D 


F0 


06 




BEQ 


$C6A5 


C69F 


E8 






I NX 




C6A0 


EC 


76 


02 


CPX 


$0276 


C6A3 


90 


F2 




BCC 


$C697 


C6A5 


60 






RTS 




*****************************< 


C6A6 


A9 


00 




LDA 


#$00 


C6A8 


8D 


4B 


02 


STA 


$024B. 


C6AB 


8A 






TXA 




C6AC 


48 






PHA 




C6AD 


BD 


00 


02 


LDA 


$0200 ,X 


C6B0 


C9 


2C 




CMP 


#$2C 


C6B2 


F0 


14 




BEO 


$C6C8 


C6B4 


C9 


3D 




CMP 


#$3D 


C6B6 


F0 


10 




BEO 


$C6C8 


C6B8 


EE 


4B 


02 


INC 


$024B 


C6BB 


E8 






I NX 




C6BC 


A9 


OF 




LDA 


#$0F 


C6BE 


CD 


4B 


02 


CMP 


$024B 


C6C1 


90 


05 




BCC 


$C6C8 


C6C3 


EC 


74 


02 


CPX 


$0274 


C6C6 


90 


E5 




BCC 


$C6AD 


C6C8 


8E 


76 


02 


STX 


$0276 


C6CB 


68 






PLA 




C6CC 


AA 






TAX 




C6CD 


60 






RTS 





****************************** 
C6CE A5 83 LDA $83 

C6D0 48 PHA 



search for end of name in command 

get characters out of buffer 
i ■ 

i _ i 

increment length of name 
15 

greater? 

end of input line? 
pointer to end of name 

secondary address and channel no. 
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C6D1 A5 82 LDA $82 

C6D3 48 PHA 

C6D4 20 DE C6 JSR $C6DE 

C6D7 68 PLA 

C6D8 85 82 STA $82 

C6DA 68 PLA 

C6DB 85 83 STA $83 

C6DD 60 RTS 



****************************** 





A9 


11 




LDA 


f via 


17 


C6E0 


85 


83 




STA 


$83 


secondary address 


C6E2 


20 


EB 


DO 


JSR 


$D0EB 


open channel to read 


t-0 CO 


on 


pft 




JSR 


$D4E8 


set buffer pointer 


C6E8 


AD 


53 


02 


LDA 


$0253 






i n 

J.U 


OA 




BPL 


$C6F7 


not yet last entry? 


C6ED 


AD 


8D 


02 


LDA 


S028D 




C6F0 


DO 


OA 




BNE 


$C6FC 




C6F2 


20 


06 


C8 


JSR 


$C806 


write 'blocks free.' 


C6F5 


18 






CLC 






CO r d 


60 






RTS 






C6F7 


AD 


a n 


no 








Cor A 


r u 


1 c 
i r 






SP71 R 




CO r c 




An 
o u 




DEC 


$028D 




C6FF 


DO 


0D 




BNE 


$C70E 




C701 


CE 


8D 


02 


DEC 


$028D 




C f \J*i 


20 


8F 


C3 


JSR 


$C38F 


change drive 


C / U / 




UD 


rA 

CO 


JSR 


$C806 


write 'blocks free.' 


C7 OA 


38 






SEC 








AC 


ft F 

o r 




JMP 


$C3 8 F 


change drive 


C7 0E 


A9 


00 




LDA 


#$00 




c / ±u 


ft n 


/ o 


02 


STA 


$0273 


drive no. for header, 


P7 1 7 


ft n 


fi n 

o L> 


uz 


STA 


$028D 




c / xo 


on 


R7 
13 / 


P7 
C / 


TOD 


<C1 R7 


ut-i i- p hpafipr 


C7 19 


38 






SEC 






C71A 


60 






RTS 






C71B 


A2 


18 




LDX 


#$18 




C71D 


AO 


ID 




LDY 


#$1D 




C71F 


Bl 


94 




LDA 


($94), Y 


number of blocks hi 


C721 


8D 


73 


02 


STA 


$0273 


in buffer 


C724 


F0 


02 




BEQ 


$C7 28 


zero? 


C7 26 


A2 


16 




LDX 


#$16 




C728 


88 






DEY 






C7 29 


Bl 


94 




LDA 


($94) ,Y 


number of blocks lo 


C7 2B 


8D 


72 


02 


STA 


S0272 


in buffer 


C72E 


E0 


16 




CPX 


#$16 




C730 


F0 


OA 




BEQ 


$C73C 




C732 


C9 


OA 




CMP 


#$0A 


10 


C7 34 


90 


06 




BCC 


$C73C 




C736 


CA 






DEX 






C7 37 


C9 


64 




CMP 


#$64 


100 


C739 


90 


01 




BCC 


SC73C 




C7 3B 


CA 






DEX 







create file entry for directory 
get data back 
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Disk Drive 



C73C 


20 


AC 


C7 


JSR 


$C7AC 


C73F 


Bl 


94 




LDA 




C741 


48 






PHA 


C742 


OA 






ASL 




C743 


10 


05 




BPL 


$C74A 


C745 


A9 


3C 




LDA 


#$3C 


C747 


9D 


B2 


02 


STA 


S0?R? .X 


C74A 


68 






PLA 




C74B 


29 


OF 




AND 


#S0F 


C74D 


A8 






TAY 




C74E 


B9 


C5 


FE 


LDA 


$FEC5 , Y 


C751 


9D 


Bl 


02 


STA 


502B1 ,X 


C754 


CA 






DEX 




C755 


B9 


CO 


FE 


LDA 


$FEC0 , Y 


C758 


9D 


Bl 


02 


STA 


$02B1 ,X 


C75B 


CA 






DEX 




C75C 


B9 


BB 


FE 


LDA 


SFEBB , Y 


C75F 


9D 


Bl 


02 


STA 


S02B1 .X 


C762 


CA 






DEX 




C763 


CA 






DEX 




C764 


BO 


05 




BCS 


$C76B 


C766 


A9 


2A 




LDA 




C768 


9D 


B2 


02 


STA 


S09R9 Y 


C76B 


A9 


AO 




LDA 


#$A0 


676D 


9D 


Bl 


02 


STA 


S02B1 .X 


C770 


CA 






DEX 




C771 


AO 


12 




LDY 


#$12 


C773 


Bl 


94 




LDA 


( $94 ) ,Y 


C775 


9D 


Bl 


02 


STA 


S02B1 .X 


C778 


CA 






DEX 




C779 


88 






DEY 




C77A 


CO 


03 




CPY 


#$03 


C77C 


BO 


F5 




BCS 


$C773 


C77E 


A9 


22 




LDA 


#$22 


C780 


9D 


Bl 


02 


STA 


S02B1 .X 


C783 


E8 






I NX 




C784 


E0 


20 




CPX 


#$20 


C786 


BO 


OB 




BCS 


$C793 


C788 


BD 


Bl 


02 


LDA 


$02B1 ,X 


C78B 


C9 


22 




CMP 


#$22 


C78D 


FO 


04 




BEQ 


$C793 


C7BF 


C9 


AO 




CMP 


#$A0 


C791 


DO 


FO 




BNE 


$C783 


C793 


A9 


22 




LDA 


#$22 


C795 


9D 


Bl 


02 


STA 




C798 


E8 






I NX 




C799 


EO 


20 




CPX 


#$20 


C89B 


BO 


OA 




BCS 


SC7A7 


C79D 


A9 


7F 




LDA 


#$7F 


C79F 


3D 


Bl 


02 


AND 


$02B1,X 


C7A2 


9D 


Bl 


02 


STA 


$02B1 ,X 


C7A5 


10 


Fl 




BPL 


$C798 


C7A7 


20 


B5 


C4 


JSR 


$C4B5 


C7AA 


38 






SEC 




C7AB 


60 






RTS 





erase buffer 
file type 

bit 7 in carry 

bit 6 not set? 

'<* for protected file 

write behind file type 

isolate bits 0-3 

as file type marker 

3rd letter of the file type 

in buffer 

2nd letter of file type 
in buffer 

1st letter of file type 
in buffer 



file not closed? 
i * t 

before file type in buffer 
pad with 'shift blank' 
in buffer 



filenames 
write in buffer 



i _ i 

write before file type 



character from buffer 
' = '? 

'shift blank' at end of name 
fill through '=' 



bit 7 

erase in the remaining chars 
search for next directory entry 
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****************************** 


erase directory buffer 


C7AC 


AO 


IB 




LDY 


#$1B 




C7AE 


A9 


20 




LDA 


#$20 


blank 


C7B0 


99 


BO 


02 


STA 


$02B0,Y 


write in buffer 


C7B3 


88 






DEY 






C7B4 


DO 


FA 




BNE 


$C7B0 




C7B6 


60 






RTS 






****************************** 


.... 

create header with disk name 


C7B7 


20 


19 


Fl 


JSR 


$F119 


initialize if needed 


C7BA 


20 


DF 


FO 


JSR 


$F0DF 


read disk name 


C7BD 


20 


AC 


C7 


JSR 


$C7AC 


erase buffer 


C7C0 


Ay 


FF 




LDA 


#$FF 




C7C2 


85 


6F 




STA 


S6F 




C7C4 


A6 


7F 




LDX 


$7F 


drive number 


C7C6 


8E 


/ z 


Uz 


STX 


$0272 


as block no* lo in buffer 


C7C9 


A9 


00 




LDA 


#$00 




C7CB 


8D 


73 


ft 1 
Uz 


STA 


$0273 


block number lo 


C7CE 


A6 


F9 




LDX 


$F9 


buffer number 


C7D0 


BD 


EO 


FE 


LDA 


$FEE0,X 


V* A Kt rl*o /"\f f ha huf Pal" a^dl*asfi 

£il"Dy tc OE Tine DUEIBL aUUIBSS 


C7D3 


85 


Q C 
?D 




STA 


$95 




C7D5 


AD 


Q D 
CO 


FE 


LDA 


$FE88 


CQH Ttf\G 1 f 1 fin of Hi cl; n ATn&* 


C7D8 


85 


94 




STA $94 


save 


C7DA 


AO 


lb 




LDY 


#$16 




L / DL. 


n1 
Bl 






LDA 


($94) ,Y 


na>ri huff A»* u uv> lehi ft- hi ank 1 


C7DE 


C9 


AO 




CMP 


#$A0 




C7B0 


DO 


OB 




BNE 


$C7ED 




C7E2 


A9 


31 




LDA 


#$31 


J. 


C7E4 


2C 






•BYTE $2C 




C7E5 


Bl 


94 




LDA 


($94) ,Y 


character from butter 


C7E7 


C9 


AO 




CMP 


#$A0 


compare wicn sniit uj.cinK 


C7E9 


DO 


02 




BNE 


$C7ED 




C7EB 


A9 


20 




LDA 


#$20 


1 1 hi ant 


C7ED 


99 


B3 


02 


STA 


$02B3 


in buffer 


C7F0 


88 






DEY 






C7F1 


10 


F2 




BPL 


$C7E5 




C7F3 


A9 


12 




LDA 


#$12 


' RVS ON 1 


C7F5 


8D 


Bl 


02 


STA 


$02B1 


in buffer 


C7F8 


A9 


22 




LDA 


#$22 


i H i 


C7FA 


8D 


B2 


02 


STA 


S02B2 


write before 


C7FD 


8D 


C3 


02 


STA 


$02C3 


and after disk name 


C800 


A9 


20 




LDA 


#$20 


I I Kl ant 


C802 


8D 


C4 


02 


STA 


$02C4 


behind it 


C805 


60 






RTS 






****************************** 


create last line 


C806 


20 


AC 


C7 


JSR 


$C7AC 


erase buffer 


C809 


AO 


OB 




LDY 


#$0B 


12 characters 


C80B 


B9 


17 


C8 


LDA 


$C817,Y 


'blocks free.' 


C80E 


99 


Bl 


02 


STA 


$02B1 ,Y 


write in buffer 


CB11 


88 






DEY 






C812 


10 


F7 




BPL 


$C80B 




C814 


4C 


4D 


EF 


JMP 


SEF4D 


number of free blocks in fron 
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****************************** 

C817 42 4C 4F 43 4B 53 20 46 'blocks V 
C81F 52 45 45 2E 'ree.' 



******************** ********** 



C823 


20 


98 


C3 


JSR 


$C398 


C826 


20 


20 


C3 


JSR 


$C320 


C829 


20 


CA 


C3 


JSR 


$C3CA 


C82C 


A9 


00 




LDA 


#$00 


C82E 


85 


86 




STA 


$86 


C830 


20 


9D 


C4 


JSR 


$C49D 


C833 


30 


3D 




BMI 


$C872 


C835 


20 


B7 


DD 


JSR 


$DDB7 


C838 


90 


33 




BCC 


$C86D 


C83A 


AO 


00 




LDY 


#$00 


C83C 


Bl 


94 




LDA 


($94) ,Y 


C83E 


29 


40 




AND 


#$40 


C840 


DO 


2B 




BNE 


$C86D 


C842 


20 


B6 


C8 


JSR 


$C8B6 


C845 


AO 


13 




LDY 


#$13 


C847 


Bl 


94 




LDA 


($94) ,Y 


C849 


F0 


OA 




BEQ 


$C855 


C84B 


85 


80 




STA 


$80 


C84D 


C8 






I NY 


C84E 


Bl 


94 




LDA 


($94) ,Y 


C850 


85 


81 




STA 


$81 


C852 


20 


7D 


C8 


JSR 


$C87D 


C855 


AE 


53 


02 


LDX 


$0253 


C858 


A9 


20 




LDA 


#$20 


C85A 


35 


E7 




AND 


$E7,X 


C85C 


DO 


OD 




BNE 


$C86B 


C85E 


BD 


80 


02 


LDA 


$0280, X 


C861 


85 


80 




STA 


$80 


C863 


BD 


85 


02 


LDA 


$0285,X 


C866 


85 


81 




STA 


$81 


C868 


20 


7D 


C8 


JSR 


$C87D 


C86B 


E6 


86 




INC 


$86 


C86D 


20 


8B 


C4 


JSR 


$C48B 


C870 


10 


C3 




BPL 


$C835 


C872 


A5 


86 




LDA 


$86 


C874 


85 


80 




STA 


$80 


C876 


A9 


01 




LDA 


#$01 


C878 


AO 


00 




LDY 


#$00 


C87A 


4C 


A3 


CI 


JMP 


$C1A3 



****************************** 



C87D 


20 


5F 


EF 


JSR 


$EF5F 


C880 


20 


75 


D4 


JSR 


$D475 


C883 


20 


19 


Fl 


JSR 


$F119 


C886 


B5 


A7 




LDA 


$A7,X 


C888 


C9 


FF 




CMP 


#$FF 


C88A 


FO 


08 




BEQ 


$C894 


C88C 


AD 


F9 


02 


LDA 


$02F9 


C88F 


09 


40 




ORA 


#$40 


C891 


8D 


F9 


02 


STA 


$02F9 



S command 'scratch' 
ascertain file type 
get drive number 
initialize drive if needed 

counter for erased files 
search for file in directory 
not found? 
is file open 
yes 

file type 
scratch protect 
yes 

erase file and note in directory 

track no. of the first side-sector 
none present? 
note track number 

and sector number 

erase side-sector 
file number 

bit 5 set? 

yes, file not closed 
get track 

and sector 

erase file 

increment number of erased files 

search for next file 

if present, erase 

number of erased files 

save as 'track' 

1 as disk status 

as 'sector' 

message 'files scratched' 

erase file 

free block in BAM 



get buffer number in BAM 
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C894 


A9 


00 




LDA 


#$00 


C896 


20 


C8 


D4 


JSR 


$D4C8 


C899 


20 


56 


Dl 


JSR 


$D156 


C89C 


85 


80 




STA 


$80 


C89E 


20 


56 


Dl 


JSR 


$D156 


C8A1 


85 


81 




STA 


$81 


C8A3 


A5 


80 




LDA 


$80 


C8A5 


DO 


06 




BNE 


$C8AD 


C8A7 


20 


F4 


EE 


JSR 


$EEF4 


C8AA 


4C 


27 


D2 


JMP 


SD227 


C8AD 


20 


5F 


EF 


JSR 


$EF5F 


C8B0 


20 


4D 


D4 


JSR 


$D44D 


C8B3 


4C 


94 


C8 


JMP 


$C894 


*****************************' 


C8B6 


AO 


00 




LDY 


#$00 


C8B8 


98 






TYA 




C8B9 


91 


94 




STA 


($94) ,X 


C8BB 


20 


5E 


DE 


JSR 


$DE5E 


C8BE 


4C 


99 


D5 


JMP 


$D599 


***************************** 


C8C1 


A9 


31 




LDA 


#$31 


C8C3 


4C 


C8 


CI 


JMP 


$C1C8 


***************************** 


C8C6 


A9 


4C 




LDA 


#$4C 


C8C8 


8D 


00 


06 


STA 


$0600 


C8CB 


A9 


C7 




LDA 


#$C7 


C8CD 


8D 


01 


06 


STA 


$0601 


C8D0 


A9 


FA 




LDA 


#$FA 


C8D2 


8D 


02 


06 


STA 


$0602 


C8D5 


A9 


03 




LDA 


#$03 


C8D7 


20 


D3 


D6 


JSR 


$D6D3 


C8DA 


A5 


7F 




LDA 


$7F 


C8DC 


09 


E0 




ORA 


#$E0 


C8DE 


85 


03 




STA 


$03 


C8E0 


A5 


03 




LDA 


$03 


C8E2 


30 


FC 




BMI 


$C8E0 


C8E4 


C9 


02 




CMP 


#$02 


C8E6 


90 


07 




BCC 


$C8EF 


C8E8 


A9 


03 




LDA 


#$03 


C8EA 


A2 


00 




LDX 


#$00 


C8EC 


4C 


OA 


E6 


JMP 


$E60A 


C8EF 


60 






RTS 




***************************** 


C8F0 


A9 


E0 




LDA 


#$E0 


C8F2 


8D 


4F 


02 


STA 


$024F 


C8F5 


20 


Dl 


FO 


JSR 


$F0D1 


C8F8 


20 


19 


Fl 


JSR 


$F119 


C8FB 


A9 


FF 




LDA 


#$FF 


C8FD 


95 


A7 




STA 


$A7,X 


C8FF 


A9 


OF 




LDA 


#$0F 



buffer pointer to zero 
get track 

get sector 

track number 
not equal to zero 
write BAM 
close channel 

free block in BAM 
read next block 
and continue 

erase directory entry 



set file type to zero 
write block 
and check 

D-command 'backup' 

31, 'syntax error' 

format diskette 
JMP-command 



JMP $FAC7 in $600 to $602 



set track and sector number 
drive number 

command code for formatting 
transmit 

wait until formatting done 
smaller than two, then ok 



21, 'read error' 



C-command 'copy' 



get buffer number of BAM 
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C901 


8D 


56 


02 


STA 


$0256 




C904 


20 


E5 


CI 


JSR 


$C1E5 


check input line 


C907 


DO 


03 




BNE 


$C90C 


C909 


4C 


CI 


C8 


JMP 


$C8C1 


31, 'syntax error' 


C90C 


20 


F8 


CI 


JSR 


$C1F8 


check input 


C90F 


20 


20 


C3 


JSR 


SC320 


test drive number 


C912 


AD 


8B 


02 


LDA 


$028B 


flag for syntax check 


C915 


29 


55 




AND 


#$55 


C917 


DO 


OF 




BNE 


$C9 28 




C919 


AE 


7A 


02 


LDX 


S027A 




C91C 


BD 


00 


02 


LDA 


$0200 ,X 


character of the command 


C91F 


C9 


2A 




CMP 


#$2A 


i * i 


C921 


DO 


05 




BNE 


$C928 




C923 


A9 


30 




LDA 


#$30 




C925 


4C 


C8 


CI 


JMP 


$C1C8 


30, 'syntax error' 


C928 


AD 


8B 


02 


LDA 


$028B 


syntax flag 


C92B 


29 


D9 




AND 


#$D9 


C92D 


DO 


F4 




BNE 


$C923 


30, 'syntax error' 


C92F 


4C 


52 


C9 


JMP 


$C952 


C932 


A9 


00 




LDA 


#$00 




C934 


8D 


58 


02 


STA 


$0258 




C937 


8D 


8C 


02 


STA 


$028C 


number of drives 


C93A 


8D 


80 


02 


STA 


$0280 


track number in directory 


C93D 


8D 


81 


02 


STA 


$0281 


C940 


A4 


E3 










C942 


29 


01 




AND 


#$01 




C944 


85 


7F 




STA 


$7F 


drive number 


C946 


09 


01 




ORA 


#$01 




C948 


8D 


91 


02 


STA 


$0291 




C94B 


AD 


7B 


02 


LDA 


$027B 




C94E 


8D 


7A 


02 


STA 


$027A 




C951 


60 






RTS 






C952 


20 


4F 


C4 


JSR 


$C44F 


search for file in directory 


C955 


AD 


78 


02 


LDA 


$0278 


number of filenames in command 


C958 


C9 


03 




CMP 


#$03 


smaller than three? 


C95A 


90 


45 




BCC 


$C9A1 


yes 


C95C 


A5 


E2 




LDA 


$E2 


first drive number 


C95E 


C5 


E3 




CMP 


$E3 


second drive number 


C960 


DO 


3F 




BNE 


$C9A1 


not on same drive? 


C962 


A5 


DD 




LDA 


$DD 


directory block of the 1st file 


C964 


C5 


DE 




CMP 


$DE 


same dir block as second file? 


C966 


DO 


39 




BNE 


$C9A1 


no 


C968 


A5 


D8 




LDA 


$D8 


directory sector of first file 


C96A 


C5 


D9 




CMP 


$D9 


same dir sector as second file? 


C96C 


DO 


33 




BNE 


SC9A1 


no 


C96E 


20 


CC 


CA 


JSR 


SCACC 


is file present 


C971 


A9 


01 




LDA 


#$01 


C973 


8D 


79 


02 


STA 


$0279 




C976 


20 


FA 


C9 


JSR 


SC9FA 




C979 


20 


25 


Dl 


JSP 


SD125 


get data type 


C97C 


FO 


04 




BEp 


SC982 


rel-file? 


C97E 


C9 


02 




CMP 


#$02 


prg-f ile 
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C980 


DO 


05 




BNE 


$C987 


no 


C982 


A9 


64 




LDA 


#$64 




C984 


20 


C8 


CI 


JSR 


$C1C8 


64, 'file type mismatch' 


C987 


A9 


12 




LDA 


#$12 


18 


C989 


85 


83 




STA 


$83 


secondary address 








02 


LDA 


$023C 




C98E 


8D 


3D 


02 


STA 


$023D 




C991 


A9 


FF 




LDA #$FF 






on 




U Z 


STA 


$023C 




C996 


20 


2A 


DA 


JSR 


$DA2A 


prepare append 


C999 


A2 


02 




LDX 


#$02 




C99B 


20 


B9 


C9 


JSR 


$C9B9 


copy file 


C99E 


4C 


94 


CI 


JMP 


SC194 


done 


C9A1 


20 


A7 


C9 


JSR 


$C9A7 


copy file 


C9A4 


4C 


94 


CI 


JMP 


$C194 


done 


C9A7 


20 


E7 


CA 


JSR 


$CAE7 




C9AA 


A4 


E2 




LDA 


$E2 


drive no. of first file 


C9AC 


29 


01 




AND 


ft 9U1 




C9AE 


85 


7F 




STA 


$7F 


drive number 


C9B0 


20 


86 


D4 


JSR 


$D486 




C9B3 


20 


E4 


D6 


JSR 


SD6E4 


enter file in directory 


C9B6 


AE 


77 


02 


LDX 


$0277 




C9B9 


8E 


79 


02 


STX 


$0279 




C9BC 


20 


FA 


C9 


JSR 


$C9FA 




C9BF 


A9 


11 




LDA 


#$11 


17 


pan 


o D 






STA 


$83 




C9C3 


20 


EB 


DO 


JSR 


$D0 EB 




C9C6 


20 


25 


Dl 


JSR 


$D125 


get data type 


C9C9 


DO 


03 




BNE 


$C9CE 


no rel-file? 


C9CB 


20 


53 


CA 


JSR 


$CA53 




C9CE 


A9 


08 




LDA 


#$08 




C9D0 


85 


F8 




STA 


$F8 




C9D2 


4C 


D8 


C9 


JMP 


$C9D8 




C9D5 


20 


9B 


CF 


JSR 


$CF9B 


write byte in buffer 


C9D8 


20 


35 


CA 


JSR 


$CA35 


and get byte 


C9DB 


A9 


80 




LDA 


#$80 




C9DD 


20 


A6 


DD 


JSR 


$DDA6 


test bit 7 


C9E0 


F0 


F3 




BEO 


$C9D5 


not set? 


C9E2 


20 


25 


Dl 


JSR 


$D125 


check file type 


C9E5 


F0 


03 




BEQ 


$C9EA 


rel-file? 


L.y & / 


*>n 

£ U 


QD 
3 D 


PI? 


JSR 


$CF9B 


ge t data by t© in bu f f er 


C9EA 


AE 


79 


02 


LDX 


$0279 




C9ED 


E8 






I NX 






C9EE 


EC 


78 


02 


CPX 


$0278 




C9F1 


-90 


C6 




BCC 


$C9B9 




C9F3 


A9 


12 




LDA 


#$12 


18 


C9F5 


85 


83 




STA 


$83 




C9F7 


4C 


02 


DB 


JMP 


$DB02 


close channel 


C9FA 


AE 


79 


02 


LDX 


$0279 




C9FD 


B5 


E2 




LDA 


$E2,X 


drive number 


C9FF 


29 


01 




AND 


#$01 
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CA01 


85 


7F 




STA 


S7F 
v / r 


CA03 


AD 


85 


FE 






CA06 


85 


80 




Din 


eon 

9DU 


CA08 


B5 


D8 




Li DA 


c no v 

©DO t A 


CAOA 


85 


81 




QTA 
Sin 




CAOC 


20 


75 


D4 


u Di\ 


V D*J I 3 


CAOF 


AE 


79 


02 




c, r» *7 Q 


CA12 


B5 


DD 




t m 


< r»n v 

9 UU i A 


CA14 


20 


C8 


D4 


JSR 


$D4C8 


CA17 


AE 


79 


02 


LDX 


$0279 


CA1A 


B5 


E7 




LDA 


SP7 Y 


CA1C 


29 


07 




AND 




CA1E 


8D 


4A 


02 


STA 


$024A 


CA21 


A9 


00 




LDA 


#$00 


CA23 


8D 


58 


02 


STA 


$0258 


CA26 


20 


AO 


D9 


JSR 


$D9A0 


CA29 


AO 


01 




LDY 


#$01 


CA2B 


20 


25 


Dl 


JSR 


$D125 


CA2E 


FO 


01 




BEO 


$CA31 


CA30 


C8 






INY 




CA31 


98 






TYA 




CA32 


4C 


C8 


D4 


JMP 


SD4C8 


CA35 


A9 


11 




LDA 


#$11 


CA37 


85 


83 




STA 


$83 


CA39 


20 


9B 


D3 


JSR 


$ D39B 


CA3C 


85 


85 




STA 


$85 


CA3E 


A6 


82 




LDX 


$82 


CA40 


B5 


F2 




LDA 


$F2,X 


CA42 


29 


08 




AND 


#$08 


CA44 


85 


F8 




STA 


$F8 


CA46 


DO 


OA 




BNE 


$CA52 


CA48 


20 


25 


Dl 


JSR 


$D125 


CA4B 


FO 


05 




BEO 


$CA52 


CA4D 


A9 


80 




LDA 


#$80 


CA4F 


20 


97 


DD 


JSR 


$DD97 


CA52 


60 






RTS 




CA53 


20 


D3 


Dl 


JSR 


SD1D3 


CA56 


20 


CB 


El 


JSR 


$E1CB 


CA59 


A5 


D6 




LDA 


$D6 


CA5B 


48 






PHA 




CA5C 


A5 


D5 




LDA 


$D5 


CA5E 


48 






PHA 




CA5F 


A9 


12 




LDA 


#$12 


CA61 


85 


83 




STA 


$83 


CA63 


20 


07 


Dl 


JSR 


$D107 


CA66 


20 


D3 


Dl 


JSR 


$D1D3 


CA69 


20 


CB 


El 


JSR 


$E1CB 


CA6C 


20 


9C 


E2 


JSR 


SE29C 


CA6F 


A5 


D6 




LDA 


$D6 


CA71 


85 


87 




STA 


$87 


CA73 


A5 


D5 




LDA 


$D5 


CA75 


85 


86 




STA 


$86 


CA77 


A9 


00 




LDA 


#$00 


CA79 


85 


88 




STA 


$88 



save 

18, directory track 
save 

directory sector 

read block 

pointer in block 
set buffer pointer 

file type 
isolate 
and save 



get parameters for rel-file 

get file type 
rel-file? 



set buffer pointer 
17 

open channel and get byte 

channel number 

isolate end marker 

not set? 

get data type 

rel-file? 

set bit 7 



set drive number 



18 

open write channel 
set drive number 



139 



1 



Anatomy of the 1541 Disk Drive 



CA7B 


85 


D4 




STA $D4 




CA7D 


85 


D7 




STA $D7 




CA7F 


68 






PLA 




CA80 


85 


D5 




STA $D5 




CA82 


68 






PLA 




CA83 


85 


D6 




STA $D6 




CA85 


4C 


3B 


E3 


JMP $E33B 




****************************** 


R-coromand , 1 rename ' 


CA88 


20 


20 


C3 


JSP. $C320 


get drive no. from command line 


CA8B 


A5 


E3 




LDA $E3 




CA8D 


29 


01 




AND #$01 




CA8F 


85 


E3 




STA $E3 


2nd drive number 


CA91 


C5 


E2 




CMP $E2 


compare with 1st drive number 


CA93 


F0 


02 




BEO $CA97 


same? 


CA95 


09 


80 




ORA #$80 




CA97 


85 


E2 




STA $E2 




CA99 


20 


4F 


C4 


JSR $C44F 


search for file in directory 


CA9C 


20 


E7 


CA 


JSR $CAE7 


does name exist? 


CA9F 


A5 


E3 




LDA $E3 




CAA1 


29 


01 




AND #$01 




CAA3 


85 


7F 




STA $7F 


drive number 


CAA5 


A5 


D9 




LDA $D9 




CAA7 


85 


81 




STA $81 


sector number 


CAA9 


20 


57 


DE 


JSR $DE57 


read block from directory 


CAAC 


20 


99 


D5 


JSR $D599 


ok? 


CAAF 


A5 


DE 




LDA $DE 


pointer to directory entry 


CAB1 


18 






CLC 




CAB2 


69 


03 




ADC #$03 


pointer plus 3 to file name 


CAB4 


20 


C8 


D4 


JSR $D4C8 


set buffer pointer 


CAB7 


20 


93 


DF 


JSR $DF93 


get buffer number 


CABA 


A8 






TAY 




CABB 


AE 


7A 


02 


LDX $027A 




CABE 


A9 


10 




LDA #$10 


16 characters 


CACO 


20 


6E 


C6 


JSR $C66E 


write name in buffer 


CAC3 


20 


5E 


DE 


JSR $DE5E 


write block to directory 


CAC6 


20 


99 


D5 


JSR SD599 


ok? 


CAC9 


4C 


94 


CI 


JMP $C194 


done, prepare disk status 


****************************** 


check if file present 


CACC 


A5 


E8 




LDA $E8 


file type 


CACE 


29 


07 




AND #$07 




CADO 


8D 


4A 


02 


STA $024A 


save 


CAD3 


AE 


78 


02 


LDX $0278 




CAD6 


CA 






DEX 




CAD7 


EC 


77 


02 


CPX $0277 




CADA 


90 


OA 




BCC $CAE6 




CADC 


BD 


80 


02 


LDA $0280 f X 


track number 


CADF 


DO 


F5 




BNE $CAD6 


not zero? 


CAE1 


A9 


62 




LDA #$62 




CAE3 


4C 


C8 


CI 


JMP $C1C8 


62, 'file not found' 


CAE6 


60 






RTS 




CAE7 


20 


CC 


CA 


JSR $CACC 


does file exist with old name? 


CAEA 


8D 


80 


02 


LDA $0280, X 


track number of new file 
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CAED 


FO 


05 


BEQ 


SCAF4 


file erased? 


CAEF 


A9 


63 


LDA 


#S63 




CAF1 


4C 


C8 CI 


JMP 


$C1C8 


63, 'file exists 


CAF4 


CA 




DEX 






CAF5 


10 


F3 


BPL 


$CAEA 




CAF7 


60 




RTS 







****************************** 



CAF8 


AD 


01 


02 


LDA 


$0201 


CAFB 


C9 


2D 




CMP 


#S2D 


CAFD 


DO 


4C 




BNE 


$CB4B 


CAFF 


AD 


03 


02 


LDA 


$0203 


CB02 


85 


6F 




STA 


$6F 


CB04 


AD 


04 


02 


LDA 


$0204 


CB07 


85 


70 




STA 


$70 


CB09 


AO 


00 




LDY 


#$00 


CBOB 


AD 


02 


02 


LDA 


$0202 


CBOE 


C9 


52 




CMP 


#$52 


CB10 


FO 


OE 




BEQ 


$CB20 


CB12 


20 


58 


F2 


JSR 


$F258 


CB15 


C9 


57 




CMP 


#$57 


CB17 


FO 


37 




BEQ 


$CB50 


CB19 


C9 


45 




CMP 


#$45 


CB1B 


DO 


2E 




BNE 


$CB4B 


CB1D 


6C 


6F 


00 


JMP 


(S006F) 


*****************************. 


CB20 


Bl 


6F 




LDA 


($6F) ,Y 


CB22 


85 


85 




STA 


$85 


CB24 


AD 


74 


02 


LDA 


$0274 


CB27 


C9 


06 




CMP 


#$06 


CB29 


90 


1A 




BCC 


SCB45 


CB2B 


AE 


05 


02 


LDX 


$0205 


CB2E 


CA 






DEX 




CB2F 


FO 


14 




BEO 


$CB45 


CB31 


8A 






TXA 




CB32 


18 






CLC 




CB33 


65 


6F 




ADC 


$6F 


CB35 


E6 


6F 




INC 


$6F 


CB37 


8D 


49 


02 


STA 


$0249 


CB3A 


A5 


6F 




LDA 


$6F 


CB3C 


85 


A5 




STA 


$A5 


CB3E 


A5 


70 




LDA 


$70 


CB40 


85 


A6 




STA 


$A6 


CB42 


4C 


43 


D4 


JMP 


SD443 


CB45 


20 


EB 


DO 


JSR 


$D0EB 


CB48 


4C 


3A 


D4 


JMP 


SD43A 


CB4B 


A9 


31 




LDA 


#$31 


CB4D 


4C 


C8 


CI 


JMP 


$C1C8 


*****************************, 


CB50 


B9 


06 


02 


LDA 


$0206, Y 


CB53 


91 


6F 




STA 


($6F) ,Y 



M-command , 'memory' 
2nd character from buffer 



address in $6F/$70 



3rd character from buffer 
•R' 

to memory read 
(RTS) 

•w 

to memory write 
•E' 

memory-execute 

M-R, ' Memory- Re ad ' 
read byte 

length of command line 

less than 6? 

yes 

number 

only one byte? 
number of bytes 

plus start address 

end pointer 

buffer pointer for error message 
set to start address for 'M-R' 

byte out 

open read channel 
byte out 



31, 'syntax error' 

M-W, 'memory-write' 
read character 
and save 
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CB55 


C8 






INY 






CB56 


CC 


05 


02 


CPY 


$0205 


number of characters 


CB59 


90 


F5 




BCC 


$CB50 


all characters? 


CB5B 


60 






RTS 






****************************** 


U-command, 'user' 


CB5C 


AC 


01 


02 


LDY 


$0201 


second char 


CB5F 


CO 


30 




CPY 


#$30 


'0' 


CB61 


DO 


09 




BNE 


$CB6C 


no 


CB63 


A9 


EA 




LDA 


#$EA 




CB65 


85 


6B 




STA 


$6B 


ptr to table of user-addresses 


CB67 


A9 


FF 




LDA 


#$FF 


$FFEA 


CB69 


85 


6C 




STA 


$6C 




CB6B 


60 






RTS 






CB6C 


20 


72 


CB 


JSR 


$CB72 




CB6F 


4C 


94 


CI 


JMP 


$C194 


done, prepare error message 


CB72 


88 






DEY 






CB73 


98 






TYA 






CB74 


29 


OF 




AND 


#$0F 


number 


CB76 


OA 






ASL 


A 


times 2 


CB77 


A8 






TAY 






CB78 


Bl 


6B 




LDA 


($6B),Y 


as pointer in table 


CB7A 


85 


75 




STA 


$75 




C87C 


C8 






INY 




address at $75/$76 


CB7D 


Bl 


6B 




LDA 


($6B),Y 




CB7F 


85 


76 




STA 


$76 




CB81 


6C 


75 


00 


JMP 


($0075) 


execute function 


****************************** 


open direct access channel, '# 


CB84 


AD 


8E 


02 


LDA 


$028E 


last drive number 


CB87 


85 


7F 




STA 


$7F 


drive number 


CB89 


A5 


83 




LDA 


$83 


channel number 


CB8B 


48 






PHA 






CB8C 


20 


3D 


C6 


JSR 


$C63D 


check drive and initialize 


CB8F 


68 






PLA 






CB90 


85 


83 




STA 


$83 




CB92 


AE 


74 


02 


LDX 


$0274 


length of filename 


CB95 


CA 






DEX 






CB96 


DO 


OD 




BNE 


$CBA5 


greater than one? 


CB98 


A9 


01 




LDA 


#$01 




CB9A 


20 


E2 


Dl 


JSR 


$D1E2 


layout buffer and channel 


CB9D 


4C 


Fl 


CB 


JMP 


$CBF1 


set flags, done 


CBAO 


A9 


70 




LDA 


#$70 




CBA2 


4C 


C8 


CI 


JMP 


$C1C8 


70, 'no channel' 


CBA5 


AO 


01 




LDY 


#$01 




CBA7 


20 


7C 


CC 


JSR 


$CC7C 


get buffer number 


CBAA 


AE 


85 


02 


LDX 


$0285 


buffer number 


CBAD 


EO 


05 




CPX 


#$05 


bigger than 5? 


CBAF 


BO 


EF 




BCS 


$CBA0 


70, 'no channel' 


CBB1 


A9 


00 




LDA 


#$00 




CBB3 


85 


6F 




STA 


S6F 




CBB5 


85 


70 




STA 


$70 
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CBB7 


38 






SEC 






CBB8 


26 


6F 




ROL 






CBBA 


26 


70 




ROL 


$70 




CBBC 


CA 






DEX 






CBBD 


10 


F9 




BPL 






CBBF 


A5 


6F 




LDA 






CBC1 


2D 


4F 


02 


AND 






CBC4 


DO 


DA 




BNE 


$CBA0 




CBC6 


A5 


70 




LDA 


370 
9 / u 




CBC8 


2D 


50 


02 


AND 


$0250 




CBCB 


DO 


D3 




BNE 


$CBA0 




CBCD 


A5 


6F 




LDA 


$6F 




CBCF 


OD 


4F 


02 


ORA 


$024F 




CBD2 


8D 


4F 


02 


STA 


$024F 




CBD5 


A5 


70 




LDA 


$70 




CBD7 


OD 


50 


02 


ORA 


$0250 




CBDA 


8D 


50 


02 


STA 


$0250 




CBDD 


A9 


00 




LDA 


#$00 




CBDF 


20 


E2 


Dl 


JSR 


$D1E2 


search channel 


CBE2 


A6 


82 




LDX 


$82 


channel number 


CBE4 


AD 


85 


02 


LDA 


$0285 


buffer number 


CBE7 


95 


A7 




STA 


$A7 ,X 




CBE9 


AA 






TAX 






CBEA 


A5 


7F 




LDA 


$7F 


Hri \to nnmKar 
Ul 1 Vc 1 1 UltlUtr L 


CBEC 


95 


00 




STA 


$00 ,X 




CBEE 


9D 


5B 


02 


STA 


$ 025B ,X 




CBF1 


A6 


83 




LDX 


$83 


secondary address 


CBF3 


BD 


2B 


02 


LDA 


$022B,X 


CBF6 


09 


40 




ORA 


#$40 


set RPAD and WRTTP f 1 ane 


CBF8 


9D 


2B 


02 


STA 


S022B ,X 


CBFB 


A4 


82 




LDY 


$82 




CBFD 


A9 


FF 




LDA 


#$FF 




CBFF 


99 


44 


02 


STA 


$0244, Y 


end pointer 


CCO 2 


A9 


89 




LDA 


#$89 


CCO 4 


99 


F2 


00 


STA 


$O0F2 , Y 


set READ and WRITE flags 


CC07 


B9 


A7 


00 


LDA 


$00A7,Y 


buffer number 


CCOA 


99 


3E 


02 


STA 


S023E , Y 




CCOD 


OA 






ASL 


A 


times 2 


CCOE 


AA 






TAX 






CCOF 


A9 


01 




LDA 


#$01 




ecu 


95 


99 




STA 


$99 ,X 




CC13 


A9 


OE 




LDA 


#$0E 


CC15 


99 


EC 


00 


STA 


$00EC,Y 


flag for direct access 


CC18 


4C 


94 


CI 


JMP 


$C194 


done 


****************************** 


B-comroand, 'Block' 


CC1B 


AO 


00 




LDY 


#$00 




CC1D 


AO 


00 




LDX 


#$00 




CC1F 


A9 


2D 




LDA 


#$2D 


i _ i 


CC21 


20 


68 


C2 


JSR 


$C268 


search for minus sign 


CC24 


DO 


OA 




BNE 


$CC30 


found? 


CC26 


A9 


31 




LDA 


#$31 




CC28 


4C 


C8 


CI 


JMP 


$C1C8 


31, 'syntax error' 
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CC2B 


A9 


30 




LDA 


#$30 










JMP 


$C1C8 




Oft 






TXA 




LUJ 1 




f o 




BNE 


$CC2B 


CC33 


A2 


05 




LDX 


#$05 




B9 


00 


02 


LDA 


$0200 , Y 


CC38 


DD 


5D 


CC 


CMP 


$CC5D,X 


CC3B 


FO 


05 




BEQ 


$CC42 


CC3D 


CA 






DEX 




CC3E 


10 


F8 




BPL 


$CC38 


CC40 


30 


E4 




BMI 


$CC26 


CC42 


8A 






TXA 






09 


80 




ORA 


#$80 


CC45 


8D 


2A 


02 


STA 


$022A 


CC48 


20 


6F 


CC 


JSR 


$CC6F 


CC4B 


AD 


2A 


02 


LDA 


$022A 


CC4E 


OA 






ASL 


A 


CC4F 


AA 






TAX 




CC50 


BD 


64 


CC 


LDA 


$CC64,X 


CC53 


85 


70 




STA 


$70 


CC55 


BD 


63 


CC 


LDA 


$CC63,X 


CC58 


85 


6F 




STA 


$6F 


CC5A 


6C 


6F 


00 


JMP 


($006F) 


*****************************: 


CC5D 


41 


46 


52 


57 45 


50 


****************************** 


CC63 


03 


CD 








CC65 


F5 


CC 








CC67 


56 


CD 








CC69 


73 


CD 








CC6B 


A3 


CD 








CC6D 


BD 


CD 








***************************** 


CC6F 


AO 


00 




LDY 


#$00 


CC71 


A2 


00 




LDX 


#$00 


CC73 


A9 


3A 




LDA 


#$3A 


CC75 


20 


68 


C2 


JSR 


$C268 


CC78 


DO 


02 




BNE 


$CC7C 


CC7A 


AO 


03 




LDY 


#$03 


CC7C 


B9 


00 


02 


LDA 


$0200, Y 


CC7F 


C9 


20 




CMP 


#$20 


CC81 


F0 


08 




BEQ 


$CC8B 


CC83 


C9 


ID 




CMP 


#$1D 


CC85 


F0 


04 




BEQ 


$CC8B 


CC87 


C9 


2C 




CMP 


#$2C 


CC89 


DO 


07 




BNE 


$CC92 


CC8B 


C8 






INY 




CC8C 


CC 


74 


02 


CPY 


$0274 


CC8F 


90 


EB 




BCC 


$CC7C 


CC91 


60 






RTS 





30, "syntax error' 



comma, then error 

char from buffer 
compare with ' AFRWEP 1 
found? 

compare with all characters 
not found, error 

command number, set bit 7 

get parameters 

number times 2 
as index 

address of command hi 
address lo 
jump to command 

names of the various block cmds 
' AFRWEP 1 

addresses of block commands 

$CD03, B-A 

$CCF5, B-F 

$CD56, B-R 

$CD73, B-W 

$CDA3, B-E 

$CDBD, B-P 

get parameters for block commands 



■ • ■ 

test line to colon 
found? 

no, begin at 4th character 
search for separating char 

• ' blank 

cursor right 

* , ' comma 



line end? 
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CC92 


20 


Al 


CC 


JSR 




CC95 


EE 


77 


02 


TMp 


?Ui / / 


CC98 


AC 


79 


02 


r nv 




CC9B 


E0 


04 








CC9D 


90 


EC 






9CLOD 


CC9F 


BO 


8A 








CCA1 


A9 


00 






ft^ nn 

ff 9 UU 


CCA3 


85 


6F 




STA 


$6F 


CCA5 


85 


70 




STA 


$70 


CCA7 


85 


72 




STA 


S79 
v / 


CCA9 


A2 


FF 




LDX 




CCAB 


B9 


00 


02 


LDA 


$0200, Y 


CCAE 


C9 


40 




CMP 


#$40 


CCBO 


BO 


18 




BCS 


$CCCA 


CCB2 


C9 


30 




CMP 


#$30 


CCB4 


90 


14 




BCC 


$CCCA 


CCB6 


29 


OF 




AND 


#$0F 


CCB8 


48 






PHA 




CCB9 


A5 


70 




LDA 


$70 


CCBB 


85 


71 




STA $71 


CCBD 


A4 


6F 




LDA 


$6F 


CCBF 


85 


70 




STA 


$70 


CCC1 


68 






PLA 




CCC2 


85 


6F 




STA 


$6F 


CCC4 


C8 






INY 




CCC5 


CC 


74 


02 


CPY 


$0274 


CCC7 


90 


El 




BCC 


$CCAB 


CCCA 


8C 


79 


02 


STY 


$0279 


CCCD 


18 






CLC 




CCCE 


A9 


00 




LDA #$00 


CCDO 


E8 






INX 




CCD! 


EO 


03 




CPX 


#$03 


CCD3 


BO 


OF 




BCS 


$CCE4 


CCD5 


B4 


6F 




LDY 


$6F,X 


CCD7 


88 






DEY 




CCD8 


30 


F6 




BMI 


$CCD0 


CCDA 


7D 


F2 


CC 


ADC 


$CCF2,X 


CCDD 


90 


F8 




BCC 


$CCD7 


CCDP 


18 






CLC 




CCEO 


E6 


72 




INC 


$72 


CCE2 


DO 


F3 




BNE 


$CCD7 


CCE4 


48 






PHA 




CCE5 


AE 


77 


02 


LDX 


$0277 


CCE8 


A5 


72 




LDA 


$72 


CCEA 


9D 


80 


02 


STA 


$0280, X 


CCED 


68 






PLA 




CCEE 


9D 


85 


02 


STA 


$0285, X 


CCF1 


60 






RTS 




****************************** 


CCF2 


01 


OA 


64 






****************************** 


CCF5 


20 


F5 


CD 


JSR 


$CDF5 


CCF8 


20 


5F 


EF 


JSR 


$EF5F 



preserve next parameter 
increment parameter counter 

compare with maximum number 

30, 'syntax error' 



erase storage area for decimal #s 



get characters from input buffer 

no digits? 
'0' 

no digits? 

convert ASCII digits to hex 
and save 

move digits one further 



note read number 

increment pointer in input buffer 

line end reached 

no 

save pointer 



convert hex digits to one byte 



add decimal value 



counter for parameters 

hi-byte 

lo-byte 



decimal values 
1, 10, 100 

B-F command, 'Block-Free' 

get track, sector and drive no. 

free block 
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CCFB 


4C 


94 


CI 


JMP 


$C194 


***************************** 


CCFE 


A9 


01 




LDA 


#$01 


CDOO 


8D 


F9 


02 


STA 


$02F9 


**************************** 


CD03 


20 


F5 


CD 


JSR 


$CDF5 


CD06 


A5 


81 




LDA $81 


CD08 


48 






PHA 




CD09 


20 


FA 


Fl 


JSR 


$F1FA 


CDOC 


F0 


OB 




BEQ 


$CD19 


CDOE 


68 






PLA 




CDOP 


C5 


81 




CMP 


$81 


CD11 


DO 


19 




BNE 


$CD2C 


CD13 


20 


90 


EF 


JSR 


$EF90 


CD16 


4C 


94 


CI 


JMP 


$C194 


CD19 


68 






PLA 




CD1A 


A9 


00 




LDA 


#$00 


CD1C 


85 81 




STA 


$81 


CD1E 


E6 


80 




INC 


$80 


CD20 


A5 


80 




LDA 


$80 


CD22 


CD 


D7 


FE 


CMP 


$FED7 


CD25 


BO 


OA 




BCS 


$CD31 


CD27 


20 


FA 


Fl 


JSR 


$F1FA 


CD2A 


FO 


EE 




BEQ 


$CD1A 


CD2C 


A9 


65 




LDA #$65 


CD2E 


20 


45 


E6 


JSR 


$E645 


CD31 


A9 


65 




LDA 


#$65 


CD33 


20 


G8 


CI 


JSR 


$C1C8 



****************************** 
CD36 20 F2 CD JSR $CDF2 
CD39 4C 60 D4 JMP $D460 

****************************** 

CD3C 20 2F Dl JSR $D12F 
CD3F Al 99 LDA ($99,X) 

CD41 60 RTS 



****************************** 



CD42 


20 


36 


CD 


JSR 


$CD36 


CD45 


A9 


00 




LDA 


#$00 


CD47 


20 


C8 


D4 


JSR 


$D4C8 


CD4A 


20 


3C 


CD 


JSR 


$CD3C 


CD4D 


99 


44 


02 


STA 


$0244, Y 


CD50 


A9 


89 




LDA 


$89 


CD52 


99 


F2 


00 


STA 


$00F2,Y 


CD55 


60 






RTS 




************* ****************; 


CD56 


20 


42 


CD 


JSR 


$CD42 


CD59 


20 


EC 


D3 


JSR 


$D3EC 


CD5C 


4C 


94 


CI 


JMP 


$C194 



done, prepare error message 



B-A command, 'Block-Allocate' 
get track, sector and drive no. 
sector 
save 

find block in BAM 
block allocated? 
desired sector 
= next free sector? 
no 

allocate block in BAM 
done 



sector 
next track 
track number 

36 , last track number + 1 
>=, then 'no block' 
find free block in next track 
not found, check next track 

65, 'no block' next free block 

65, 'no block' no more free blocks 



open channel, set parameters 
read block from disk 

get byte from buffer 
set pointer to buffer 
get byte 



read block from disk 
open channel, read block 

set buffer pointer to zero 
get a byte from the buffer 

set read and write flag 



B-R command, 'Block-Read' 
read block from disk 
prepare byte from buffer 
prepare error message 
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CD5F 


20 


6F 


CC 


JSR 


$CC6F 


CD62 


20 


42 


CD 


JSR 


$CD42 


CD65 


B9 


44 


02 


LDA 


$0244, Y 


CD68 


99 


3E 


02 


STA 


$023E,Y 


CD6B 


A9 


FF 




LDA 


#$FF 


CD6D 


99 


44 


02 


STA 


$0244, Y 


CD70 


4C 


94 


CI 


JMP 


$C194 


****************************** 


CD73 


20 


F2 


CD 


JSR 


SCDF2 


CD76 


20 


E8 


D4 


JSR 


$D4E8 


CD79 


A8 






TAY 




CD7A 


88 






DEY 




CD7B 


C9 


02 




CMP 


#$02 


CD7D 


BO 


02 




BCS 


$CD81 


CD7F 


AO 


01 




LDY 


#$01 


CD81 


A9 


00 




LDA 


#$00 


CD83 


20 


C8 


D4 


JSR 


$D4C8 


CD86 


98 






TYA 




CD87 


20 


Fl 


CF 


JSR 


$CFF1 


CD8A 


8A 






TXA 




CD8B 


48 






PHA 




CD8C 


20 


64 


D4 


JSR 


$D464 


CD8F 


68 






PLA 




CD90 


AA 






TAX 




CD91 


20 


EE 


D3 


JSR 


$D3EE 


CD94 


4C 


94 


CI 


JMP 


$C194 


****************************** 


CD97 


20 


6F 


CC 


JSR 


$CC6F 


CD9A 


20 


F2 


CD 


JSR 


$CDF2 


CD9D 


20 


64 


D4 


JSR 


SD464 


CDAO 


4C 


94 


CI 


JMP 


$C194 


****************************** 


CDA3 


20 


58 


F2 


JSR 


SF258 


CDA6 


20 


36 


CD 


JSR 


$CD36 


CDA9 


A9 


00 




LDA 


#$00 


CDAB 


85 


6F 




STA 


$6F 


CDAD 


A6 


F9 




LDX 


$F9 


CDAF 


BO 


EO 


FE 


LDA 


$FEE0,X 


CDB2 


85 


70 




STA 


$70 


CDB4 


20 


BA 


CD 


JSR 


$CDBA 


CDB7 


4C 


94 


CI 


JMP 


$C194 


CDBA 


6C 


6F 


00 


JMP 


($006F) 


****************************** 


CDBD 


20 


D2 


CD 


JSR 


$CDD2 


CDCO 


A5 


F9 




LDA 


$F9 


CDC2 


OA 






ASL 


A 


CDC3 


AA 






TAX 




CDC4 


AD 


86 


02 


LDA 


$0286 


CDC7 


95 


99 




STA 


$99, X 



Ul command, sub. for 'Block-Read' 

get parameters of the command 

read block from disk 

end pointer 

save as data byte 

end pointer to $FF 

done, prepare error message 

R-W command, 'Block-Write' 

open channel 

set buffer pointer 



buffer pointer lo less than 2? 
no 



buffer pointer to zero 
write byte in buffer 



write block to disk 



get byte from buffer 
done, error message 

U2, sub for 'Block-Write' 

get command parameters 

open channel 

and write block to disk 

done 

'B-E' command, 'Block-Execute' 
(RTS) 

open channel and read block 

address low 
buffer number 
buffer address high 

execute routine 
done 

jump to routine 

'B-P' command, 'Block-Pointer' 
open channel, get buffer number 
buffer number 
* 2 

as index 

pointer value 

save as buffer pointer 
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prepare a byte in buffer 

for output 

done 

open channel 
buffer number 



buffer number smaller than 14? 
yes 

70, 'no channel' 



CDC9 


20 


2F 


Dl 


JSR 


SD12F 




CDCC 


20 


EE 


D3 


JSR 


SD3EE 




CDCF 


4C 


94 


CI 


J MP 


$C194 




****************************** 


CDD2 


A6 


D3 




LDX 


$D3 




CDD4 


E6 


D3 




INC 


$D3 




CDD6 


BD 


85 


02 


LDA 


$0285, 


X 


CDD9 


A8 






TAY 






CDDA 


88 






DEY 






CDDB 


88 






DEY 






CDDC 


CO 


0C 




CPY 


#$0C 




CDDE 


90 


05 




BCC 


$CDE5 




CDEO 


A9 


70 




LDA 


#$70 




CDE2 


4C 


C8 


CI 


JMP 


$C1C8 




CDE5 


85 


83 




STA 


$83 




CDE7 


20 


EB 


DO 


JSR 


$D0EB 




CDEA 


B0 


F4 




BCS 


$CDE0 




CDEC 


20 


93 


DF 


JSR 


$DF93 




CDEF 


85 


F9 




STA 


$F9 




CDP1 


60 






RTS 






*****************************' 


CDF2 


20 


D2 


CD 


JSR 


$CDD2 




CDF5 


A6 


D3 




LDX 


$D3 




CDF7 


BD 


85 


02 


LDA 


$0285, 


,x 


CDFA 


29 


01 




AND 


#$01 




CDFC 


85 


7F 




STA 


$7F 




CDFE 


BD 


87 


02 


LDA 


$0287 


,x 


CE01 


85 


81 




STA 


$81 




CE03 


BD 


86 


02 


LDA 


$0286 


,x 


CEO 6 


85 


80 




STA 


$80 




CE08 


20 


5F 


D5 


JSR 


$D55F 




CEOB 


4C 


00 


CI 


JMP 


SC100 




***************************** 


CEOE 


20 


2C 


CE 


JSR 


$CE2C 




CE11 


20 


6E 


CE 


JSR 


$CE6E 




CE14 


A5 


90 




LDA 


$90 




CE16 


85 


D7 




STA 


$D7 




CE18 


20 


71 


CE 


JSR 


$CE71 




CE1B 


E6 


D7 




INC 


$D7 




CE1D 


E6 


D7 




INC 


$D7 




CE1F 


A5 


8B 




LDA 


$8B 




CE21 


85 


D5 




STA 


$D5 




CE23 


A5 


90 




LDA 


$90 




CE25 


OA 






ASL 


A 




CE26 


18 






CLC 






CE27 


69 


10 




ADC 


#$10 




CE29 


85 


D6 




STA 


$D6 




CE2B 


60 






RTS 







****************************** 
CE2C 20 D9 CE JSR $CED9 



secondary address 
open channel 

already allocated, 70 'no channel' 
buffer number 
set 



check buffer no. and open channel 
channel number 
buffer address 

drive number 

sector 

track 

track and sector ok? 
turn LED on 

set pointer for rel-file 
record number * record length 
divide by 254 

remainder = pointer in data block 
data pointer 

divide by 120 = side-sector # 

data ptr + 2 (track/sector ptr!) 
result of division 
equals side-sector number 
remainder 
times 2 

plus 16 

=ptr in side-sector to data block 



erase work storage 
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CE2F 


85 


92 


STA 


S92 


CE31 


A6 


82 


JUL* A 




CE33 


B5 


B5 


LDA 




CE35 


85 


90 


STA 


$90 


CE37 


B5 


BB 


LDA 


$BB , X 


CE39 


85 


91 


STA 


$91 


CE3B 


DO 


04 


BNE 


$CE41 


CE3D 


A5 


90 


LDA 


$90 


CE3F 


FO 


OB 


BEQ 


$CE4C 


CE41 


A5 


90 


LDA 


$90 


CE43 


38 




SEC 




CE44 


E9 


01 


SBC 


#$01 


CE46 


85 


90 


STA 


$90 


CE48 


BO 


02 


BCS 


SCE4C 


CE4A 


C6 


91 


DEC 


$91 


CE4C 


B5 


C7 


LDA 


$C7 ,X 


CE4E 


85 


6F 


STA 


$6F 


CE50 


46 


6F 


LSR 


$ 6F 


CE52 


90 


03 


BCC 


$CE57 


CE54 


20 


ED CE 


JSR 


$CEED 


CE57 


20 


E5 CE 


JSR 


$CEE5 


CE5A 


A5 


6F 


LDA 


$6F 


CE5C 


DO 


F2 


BNE 


$CE50 


CE5E 


A5 


D4 


LDA 


$D4 


CE60 


18 




CLC 




CE61 


65 


8B 


ASC 


$8B 


CE63 


85 


8B 


STA 


$8B 


CE65 


90 


06 


BCC 


$CE6D 


CE67 


E6 


8C 


INC 


$8C 


CE69 


DO 


02 


BNE 


$DE6D 


CE6B 


E6 


8D 


INC 


$8D 


CE6D 


60 




RTS 





****************************** 
CE6E A9 FE LDA #$FE 

CE70 2C .BYTE $2C 



channel number 
record number lo 

record number hi 

record number not zero? 
then subtract one 

record length 

record number * record length 
shift register left 



result in $8B/$8C/$8D 

divide by 254, calculate block # 
254 



****************************** 



CE71 


A9 


78 


LDA 


#$78 


CE73 


85 


6F 


STA 


$6F 


CE75 


A2 


03 


LDX 


#$03 


CE77 


B5 


8F 


LDA 


$8F,X 


CE79 


48 




PHA 




CE7A 


B5 


8A 


LDA 


$8A,X 


CE7C 


95 


8F 


STA 


$8F,X 


CE7E 


68 




PLA 




CE7F 


95 


8A 


STA 


S8A,X 


CE81 


CA 




DEX 




CE82 


DO 


F3 


BNE 


$CE77 


CE84 


20 


D9 CE 


JSR 


$CED9 


CE87 


A2 


00 


LDX 


#$00 


CE89 


B5 


90 


LDA 


$90 ,X 


CE8B 


95 


8F 


STA 


$8F,X 


CE8D 


E8 




INX 




CE8E 


E0 


04 


CPX 


#$04 



divide by 120, calculate 
side-sector number 
divisor 



erase work storage 
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LEi?U 


on 


P*7 






eppoq 




flQ 


net 






9 9UU 


CE94 


OE 
03 


Q 1 

y 2. 




STA 


COO 




0.4 








PDF 






HQ 




DMT 




CE9 A 


06 


8F 




ASL 


$8F 


CE9C 


08 






PHP 






*iO 


ftp 
r 




LSR 


$8F 


CE9F 


28 






PLP 




CEAO 


20 


E6 


CE 


JSR 




CEA3 


20 


ED 


CE 


JSR 


$CEED 


CEA6 


20 


E5 


CE 


JSR 


$CEE5 


CEA9 


24 


6F 




BIT 


$6F 






03 




BMI 


$CEB0 


CEAD 


20 


E2 


CE 


JSR 


SCEE2 


CEBO 


A5 


8F 




LDA 


$8F 




18 






CLC 




CEB3 


65 


90 




ADC 


$90 


CEB5 


85 


90 




STA 


$90 


CEB7 


90 


06 




BCC 


$CEBF 




Pfi 






INC 


SQ 1 


CEBB 


DO 


02 




BNE 


$CEBF 




PA 


Q 9 






9 ~ z 


prop 




92 




LDA 






rm 

Uj 






(IRA 


SQ1 


CEC3 


DO 


C2 




BNE 


$CE87 


CEC5 


A5 


90 




LDA 


$90 


CEC7 


38 






SEC 




CEC8 


E5 


6F 




SBC 


$6F 


CECA 


90 


OC 




BCC 


$CED8 


CECC 


E6 


8B 




INC 


$8B 


CECE 


DO 


06 




BNE 


$CED6 


CEDO 


E6 


8C 




INC 


$8C 


CED2 


DO 


02 




BNE 


$CED6 


CED4 


85 


90 




STA 


$90 


CED8 


60 






RTS 




**************************** 


CED9 


A9 


00 




LDA 


#$00 


CEDB 


85 


8B 




STA 


$8B 


CEDD 


85 


8C 




STA 


$8C 


CEDF 


85 


8D 




STA 


$8D 


CEE1 


60 






RTS 




*************************** 


CEE2 


20 


E5 


CE 


JSR 


$CEE5 


*************************** 


CEE5 


18 






CLC 




CEE6 


29 


90 




ROL 


$90 


CEE8 


26 


91 




ROL 


$91 


CEEA 


26 


92 




ROL 


$92 


CEEC 


60 






RTS 





shift register 1 left 

add register to register 1 

shift register 1 left 



left-shift register 1 twice 



quotient in $8B/S8C/$8D 

remainder in $90 
erase work storage 

left-shift 3-byte register twice 
left-shift 3-byte register once 



****************************** 
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CEED 


18 




CLC 




CEEE 


A2 


FD 


LDX 


#$FD 


CEFO 


B5 


8E 


LDA 


$8E,X 


CEF2 


75 


93 


ADC 


$93, X 


CEF4 


95 


8E 


STA 


$8E,X 


CEF6 


E8 




I NX 




CEF7 


DO 


F7 


BNE 


SCEFO 


CEF9 


60 




RTS 




CEFA 


A2 


00 


LDX 


#$00 


CEFC 


8A 




TXA 




CEFD 


95 


FA 


STA 


$FA,X 


CEFF 


E8 




I NX 




CFOO 


EO 


04 


CPX 


#$04 


CF02 


DO 


F8 


BNE 


$CEFC 


CF04 


A9 


06 


LDA 


#$06 


CF06 


95 


FA 


STA 


$FA,X 


CF08 


60 




RTS 





register $90/$91/$92 

add to register $8B/$8C/$8D 



CF09 


AO 


04 




CFOB 


A6 


82 




CFOD 


B9 


FA 


00 


CF10 


96 


FA 




CF12 


C5 


82 




CF14 


FO 


07 




CF16 


88 






CF17 


30 


El 




CF19 


AA 






CF1A 


4C 


OD 


CF 


CF1D 


60 







LDY #$04 
LDX $82 
LDA $00FA,Y 
STX $FA,Y 
CMP $82 
BEO $CF1D 
DEY 

BMI $CEFA 
TAX 

JMP SCFOD 
RTS 



channel number 
channel number 



CF1E 


20 


09 


CF 


JSR 


$CF09 


CF21 


20 


B7 


DF 


JSR 


SDFB7 


CF24 


DO 


46 




BNE 


$CF6C 


CF26 


20 


D3 


Dl 


JSR 


$D1D3 


CF29 


20 


8E 


D2 


JSR 


$D28E 


CF2C 


30 


48 




BMI 


$CF76 


CF2E 


20 


C2 


DF 


JSR 


$DFC2 


CF31 


A5 


80 




LDA 


$80 


CF33 


48 






PHA 




CF34 


A5 


81 




LDA 


$81 


CF36 


48 






PHA 




CF37 


A9 


01 




LDA 


#$01 


CF39 


20 


F6 


D4 


JSR 


$D4F6 


CF3C 


85 


81 




STA 


$81 


CF3E 


A9 


00 




LDA 


#$00 


CF40 


20 


F6 


D4 


JSR 


SD4F6 


CF43 


85 


80 




STA 


$80 


CF45 


FO 


IF 




BEO 


SCF66 


CF47 


20 


25 


Dl 


JSR 


$D125 


CF4A 


FO 


OB 




BEO 


$CF57 


CF4C 


20 


AB 


DD 


JSR 


$DDAB 


CF4F 


DO 


06 




BNE 


SCF57 


CF51 


20 


8C 


CF 


JSR 


$CF8C 


CF54 


4C 


5D 


CF 


JMP 


SCF5D 



set drive number 

track 
sector 

get byte 1 from buffer 
sector 

get byte from buffer 
track 

check file type 
rel-file? 
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CF57 


20 


8C 


CF 


JSR 


$CF8C 






CF5A 


20 


57 


DE 


JSR 


$DE57 






CF5D 


68 






PLA 








CF5E 


85 


81 




STA 


$81 


get 


sector 


CF60 


68 






PLA 








CF61 


85 


80 




STA 


$80 


and 


track number 


CF63 


4C 


6F 


CF 


JMP 


$CF6F 






CF66 


68 






PLA 








CF67 


85 


81 




STA 


$81 


get 


back sector 


CF69 


68 






PLA 








CF6A 


85 


80 




STA 


$80 


and 


track number 


CF6C 


20 


8C 


CF 


JSR 


$CF8C 






CF6F 


20 


93 


DF 


JSR 


$DF93 






CF72 


AA 






TAX 








CF73 


4C 


99 


D5 


JMP 


$D599 


and 


verify 


CF76 


A9 


70 




LDA 


#$70 






CF78 


4C 


C8 


CI 


JMP 


$C1C8 


70, 


'no channel' 


CF7B 


20 


09 


CF 


JSR 


$CF09 






CF7E 


20 


B7 


DF 


JSR 


$DFB7 






CF81 


DO 


08 




BNE 


SCF8B 






CF83 


20 


8E 


D2 


JSR 


SD28E 






CF86 


30 


EE 




BMI 


$CF76 






CF88 


20 


C2 


DF 


JSR 


$DFC2 






CF8B 


60 






RTS 









****************************** 



CF8C 


A6 


82 


LDX 


$82 


CF8E 


B5 


A7 


LDA 


$A7,X 


CF90 


49 


80 


EOR 


#$80 


CF92 


95 


A7 


STA 


$A7,X 
$AE,X 


CF94 


B5 


AE 


LDA 


CF96 


49 


80 


EOR 


#$80 


CF98 


95 


AE 


STA 


$AE,X 


CF9A 


60 




RTS 





change buffer 
channel number 



rotate bit 7 in table 



****************************** write data byte in buffer' 



CF9B 


A2 


12 




LDX 


#$12 


channel 18 


CF9D 


86 


83 




STX 


$83 




CF9F 


20 


07 


Dl 


JSR 


$D107 


open write channel 


CFA2 


20 


00 


CI 


JSR 


$C100 


turn LED on 


CFA5 


20 


25 


Dl 


JSR 


$D125 


check file type 


CFA8 


90 


05 




BCC 


$CFAF 


no rel-file 


CFAA 


A9 


20 




LDA 


#$20 




CFAC 


20 


9D 


DD 


JSR 


$DD9D 


change buffer 


CFAF 


A5 


83 




LDA 


$83 


secondary address 


CFB1 


C9 


OF 




CMP 


#$0F 


15? 


CFB3 


F0 


23 




BEO 


$CFD8 


yes 


CFB5 


DO 


08 




BNE 


$CFBF 


no 


CFB7 


A5 


84 




LDA 


$84 


secondary address 


CFB9 


29 


8F 




AND 


#$8F 
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CFBB 


C9 


OF 




CMP 


#$0F 


CFBD 


BO 


19 




BCS 


SCFD8 


CFBF 


20 


25 


Dl 


JSR 


$D125 


CFC2 


BO 


05 




BCS 


SCFC9 




A3 






LDA 


$85 


CFC6 


4C 


9D 


Dl 


JMP 


$D19D 


CFC9 


I-./-) 

DU 


03 




BNE 


$CFCE 


CFCB 


4C 


AB 


EO 


JMP 


$E0AB 


CFCE 




ft R 






CDC 
90 J 


ppnft 


*>n 
«u 


IT 1 




JSR 






A A 






LDY 


$82 


L.T UD 


AO 


CD 
CjCj 




JMP 


? £).}£•£■ 


fpno 

v^r uo 


act 


Wi 




LDA 


u n A 


CFDA 


85 


82 




STA 


$82 


CFDC 


20 


E8 


D4 


JSP 


SD4E8 


CFDF 


C9 


2A 




CMP 


#$2A 


CFE1 


F0 


05 




BEO 


$CFE8 


CFE3 


A5 


85 




LDA 


$85 


CFE5 


20 


Fl 


CF 


JSR 


$CFF1 


CFE8 


A5 


F8 




LDA 


$F8 


CFEA 


F0 


01 




BEO 


$CFED 


CFEC 


60 






FTS 




CFED 


EE 


55 


02 


INC 


$0255 


CFFO 


60 






RTS 




***************************** 


CFF1 


48 






PHA 




CFF2 


20 


93 


DP 


JSR 


$DF93 


CFF5 


10 


06 




BPL 


$CFFD 


CFF7 


68 






PLA 




CFF8 


A9 


61 




LDA 


#$61 


CFFA 


4C 


C8 


CI 


JMP 


SC1C8 


CFFD 


OA 






ASL 


A 


CFFE 


AA 






TAX 




CFFF 


68 






PLA 




D000 


81 


99 




STA 


($99, X) 


D002 


F6 


99 




INC 


$99, X 


D004 


60 






RTS 




***************************** 


D005 


20 


Dl 


CI 


JSR 


$C1D1 


D008 


20 


42 


DO 


JSR 


$D042 


DOOB 


4C 


94 


CI 


JMP 


SC194 


***************************** 


DOOE 


20 


OF 


Fl 


JSR 


SF10F 


D011 


A8 






TAX 




D012 


B6 


A7 




LDX 


$A7,Y 


D014 


E0 


FF 




CPX 


#$FF 


D016 


48 






PHA 




D019 


20 


8E 


D2 


JSR 


$D28E 



greater than 15? 

then input buffer 

check file type 

rel-file or direct access? 

data byte 

write in buffer 

direct access file? 

write data byte in rel-file 



write data byte in buffer 

channel number 

prepare next byte for output 

channel 4 

corresponding input buffer 

set buffer pointer 

40 

buffer end? 

write data byte in buffer 

end flag set? 

yes 



set command flag 



write data byte in buffer 
save data byte 
get buffer number 
associated buffer? 



61, 'file not open' 
buffer number times 2 
as index 
data byte 
write in buffer 
increment buffer pointer 



I-command, Initialize 
find drive number 
load BAM 

prepare disk status 
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D01C 


AA 






TAX 






DO ID 


A9 


70 




LDA 


#$70 




DO 21 


20 


48 


E6 


JSR 


$E648 


70, no channel 


D024 


68 






PLA 






DO 25 


A8 






TAY 






uuzo 


o A 












DO 27 


09 


oU 




ORA 


4; c q n 




D029 


99 


A7 


00 


STA 


cnnxi v 
?UUA / , Y - 




D02C 


8A 






TXA 






DO 2D 


29 


OF 




AND 


#$0F 




D02F 


85 


F9 




STA 


$F9 




D031 


A2 


00 




LDA 


#$00 




D033 


86 


81 




STX 


$81 


sector 


D035 


AE 


85 


FE 


LDX 


$FE85 


1 o 


DO 38 


86 


80 




STX 


$80 


track 18 


D03A 


20 


D3 


D6 


JSR 


$D6D3 


transmit pa ram to disk control Xer 


D03D 


A9 


B0 




LDA 


#$B0 


coiuinsnu coue icau uiolk ucauer 


D03F 


4C 


8C 


D5 


JMP 


$D58C 


4*>^an em i V i f* b f~w^ #~ v" /*\ 1 1 fly 

ttcinsiuiL. to QibK cuntroiJ.cL 


****************************** 


lUdtl DHIm 


D042 


20 


Dl 


F0 


JSR 


$F0D1 




D045 


20 


13 


D3 


JSR 


$D313 




D048 


20 


0E 


DO 


JSR 


$D00E 




D04B 


A6 


7F 




LDX 


$7F 


unvc numuer 


D04D 


A9 


00 




LDA 


#$00 




D04F 


9D 


51 


02 


STA 


$0251, X 


reset flag for BAM changed 


D052 


8A 






TXA 






D053 


OA 






ASL 


A 




D054 


AA 






TAX 






D055 


A5 


16 




LDA 


$16 




D057 


95 


12 




STA 


$12, X 




D059 


A4 


17 




LDA 


$17 


save ID 


D05B 


95 


13 




STA 


$13, X 




D05D 


20 


86 


D5 


JSR 


$D586 




D060 


A5 


F9 




LDA 


$F9 


DUtlct numuct 


D062 


OA 






ASL 


A 




D063 


AA 






TAX 






D064 


A9 


02 




LDA 


#$02 


buffer pointer to $200 


D066 


95 


99 




STA 


$99, X 




D068 


Al 


99 




LDA 


($99, X) 


nol- r>ha**achar f rrim huff or 


D06A 


A6 


7F 




LDX 


$7F 


ti l J. vts nuinue t 


D06C 


9D 


01 


01 


STA 


$0101, X 




D06F 


A9 


00 




LDA 


#$00 




D071 


95 


1C 




STA 


$1C,X 


flag for write protect 


D073 


95 


FF 




STA 


$FF,X 


flag for read error 


****************************** 


calculate blocks free 


D075 


20 


3A 


EF 


JSR 


$EF3A 


buffer address to $6D/$6E 


D078 


AO 


04 




LDY 


#$04 


begin at position 4 


D07A 


A9 


00 




LDA 


#$00 




D07C 


AA 






TAX 






D07D 


18 






CLC 






D07E 


71 


6D 




ADC 


($6D) ,Y 


add no, of free blocks per track 


D080 


90 


01 




BCC 


$D083 




D082 


E8 






INX 




X as hi-byte 
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D083 


C8 




INY 






D084 


C8 




INY 




plus 4 


D085 


C8 




INY 






D086 


C8 




INY 






D087 


CO 


48 


CPY 


#$48 


track 18? 


D089 


FO 


F8 


BEO 


$D083 


then i n 


D08B 


CO 


90 


CPY 


#$90 


last track number? 


D08D 


DO 


EE 


BNE 


$D07D 


no 


D08F 


48 




PHA 




lo-byte 


D090 


8A 




TXA 




hi -byte 


D091 


A6 


7F 


LDX 


$7F 


drive number 


D093 


9D 


FC 02 


STA 


$02FC,X 


hi-byte to $2FC 


D096 


68 




PLA 




lo-byte 


D097 


9D 


FA 02 


STA 


$02FA,X 


to $2FA 


D09A 


60 




RTS 







****************************** 



D09B 


20 


DO 


D6 


JSR 


$D6D0 


naramp t* pr^ i*r) fH r*rm t" tti 1 1 pr 


D09E 


20 


C3 


DO 


JSK 


$D0C3 


read block 


D0A1 


20 


99 


D5 


JSR 


$D599 


ok? 


D0A4 


20 


37 


Dl 


JSR 


$D137 


get byte from buffer 


D0A7 


85 


80 




STA 


$80 


track 


D0A9 


20 


37 


Dl 


JSR 


SD137 


next byte from buffer 


D0AC 


85 


81 




STA 


$81 


sector 


D0AE 


60 






RTS 






D0AF 


20 


9B 


DO 


JSR 


$D09B 




D0B2 


A5 


80 




LDA 


$80 


track 


D0B4 


DO 


01 




BNE 


$D0B7 




D0B6 


60 






RTS 






D0B7 


20 


IE 


CF 


JSR 


$CF1E 


change buffer 


D0BA 


20 


DO 


D6 


JSR 


$D6D0 


parameters to disk controller 


D0BD 


20 


C3 


DO 


JSR 


$D0C3 


read block 


D0C0 


4C 


IE 


CF 


JMP 


$CF1E 


change buffer 


****************************** 


read block 


D0C3 


A9 


80 




LDA 


#$80 


code for 'read' 


D0C5 


DO 


02 




BNE 


$D0C9 




****************************** 


write block 


D0C7 


A9 


90 




LDA 


#$90 


code for 'write' 


D0C9 


8D 


4D 


02 


STA 


$024D 


save 


DOCC 


20 


93 


DF 


JSR 


SDF93 


get buffer number 


DOCF 


AA 






TAX 






DODO 


20 


06 


D5 


JSR 


SD506 


get track/sector, read/write 


D0D3 


8A 






TXA 






D0D4 


48 






PHA 






D0D5 


OA 






ASL 


A 


buffer pointer times 2 


D0D6 


AA 






TAX 




D0D7 


A9 


00 




LDA 


#$00 




D0D9 


95 


99 




STA 


$99, X 


pointer in buffer to zero 


DO DB 


20 


25 


Dl 


JSR 


SD125 


get file type 


DODE 


C9 


04 




CMP 


#$04 


rel-file or direct access? 


DOEO 


BO 


06 




BCS 


$D0E8 


yes 


D0E2 


F6 


B5 




INC 


$B5,X 
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D0E4 


DO 


02 


BNE 


$D0E8 


increment block countsr 


D0E6 


F6 


BB 


INC 


$BB,X 




D0E8 


68 




PLA 






D0E9 


AA 




TAX 






DOEA 


60 




RTS 






****************************** 


open channel for reading 


DOEB 


A5 


83 


LDA 


$83 


9 w V/I » vj en. y uuuicoo 


DO ED 


C9 


13 


CMP 


#$13 


19 


DOEF 


90 


02 


BCC 


$D0F3 


cm a 1 I py? 


D0F1 


29 


OF 


AND 


#$0F 




D0F3 


C9 


OF 


CMP 


#$0F 




D0F5 


DO 


02 


BNE 


$D0F9 




D0F7 


A9 


10 


LDA 


#$10 


16 


D0F9 


AA 




TAX 






DO FA 


38 




SEC 






DOFB 


BD 


2B 02 


LDA 


$022B,X 




DOFE 


30 


06 


BMI 


$D106 




D100 


29 


OF 


AND 


#$0F 




D102 


85 


82 


STA 


$82 




D104 


AA 




TAX 






D105 


18 




CLC 




flan for nlc 


D106 


60 




RTS 






****************************** 


open channel for writing 


D107 


A4 


83 


LDA 


$83 


secondary add res s 


D109 


C9 


13 


CMP 


#$13 


19 


D10B 


90 


02 


BCC 


$D10F 


smal ler ? 


D10D 


29 


OF 


AND 


#$0F 




D10F 


AA 




TAX 






DUO 


BD 


2B 02 


LDA 


$022B,X 


channe 1 numbe r 


D113 


A8 




TAY 






D114 


OA 




ASL 


A 




D115 


90 


OA 


BCC 


$D121 




D117 


30 


OA 


BMI 


$D123 




D119 


98 




TYA 






D11A 


29 


OF 


AND 


#$0F 




D11C 


85 


82 


STA 


$82 




DUE 


AA 




TAX 






D11F 


18 




CLC 




flag for ok 


D120 


60 




RTS 






D121 


30 


F6 


BMI 


$D119 




D123 


38 




SEC 




f 1 an ■pf"»f chsnriP*! 1 rtpaf^H 


D124 


60 




RTS 






****************************** 


check for file type ' REL' 


D125 


A6 


82 


LDX 


$82 


D127 


B5 


EC 


LDA 


$EC,X 




D129 


4A 




LSR 


A 




D12A 


29 


07 


AND 


#$07 




D12C 


C9 


04 


CMP 


#$04 


•REL'? 


D12E 


60 




RTS 







****************************** get buffer and channel nuiobe 
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get buffer number 



D12F 


20 


93 


DP 


JSR 


SDF93 


D132 


OA 






ASL 


A 


D133 


AA 






TAX 




D134 


A4 


82 




LDY 


$82 


D136 


60 






RTS 




*****************************. 


D137 


20 


2F 


Dl 


JSR 


SD12F 


D13A 


B9 


44 


02 


LDA 


$0244, Y 


D13D 


F0 


12 




BEQ 


$D151 


D13P 


Al 


99 




LDA 


($99, X) 


D141 


48 






PHA 




D142 


B5 


99 




LDA 


$99, X 


D144 


D9 


44 


02 


CMP 


$0244, Y 


D147 


DO 


04 




BNE 


$D14D 


D149 


A9 


FF 




LDA 


#$FF 


D14B 


95 


99 




STA 


$99, X 


D14D 


68 






PLA 




D14E 


F6 


99 




INC 


$99, X 


D150 


60 






RTS 




D151 


Al 


99 




LDA 


($99, X) 


D153 


F6 


99 




INC 


$99, Y 


D155 


60 






RTS 




****************************** 


D156 


20 


37 


Dl 


JSR 


SD137 


D159 


DO 


36 




BNE 


$D191 


D15B 


85 


85 




STA 


$85 


D15D 


B9 


44 


02 


LDA 


$0244, Y 


D160 


F0 


08 




BEO 


$D16A 


D162 


A9 


80 




LDA 


#$80 


D164 


99 


F2 


00 


STA 


$00F2,Y 


D167 


A5 


85 




LDA 


$85 


D169 


60 






RTS 




D16A 


20 


IE 


CF 


JSR 


$CF1E 


D16D 


A9 


00 




LDA 


#$00 


D16F 


20 


C8 


D4 


JSR 


$D4C8 


D172 


20 


37 


Dl 


JSR 


$D137 


D175 


C9 


00 




CMP 


#$00 


D177 


FO 


19 




BEQ 


$D192 


D179 


85 


80 




STA 


$80 


D17B 


20 


37 


Dl 


JSR 


$D137 


D17E 


85 


81 




STA 


$81 


D180 


20 


IE 


CF 


JSR 


SCF1E 


D183 


20 


D3 


Dl 


JSR 


$D1D3 


D186 


20 


DO 


D6 


JSR 


$D6D0 


D189 


20 


C3 


DO 


JSR 


$D0C3 


D18C 


20 


IE 


OF 


JSR 


SCF1E 


D18F 


A5 


85 




LDA 


$85 


D191 


60 






RTS 




D192 


20 


37 


Dl 


JSR 


$D137 


D195 


A4 


82 




LDY 


$82 


D197 


99 


44 


02 


STA 


$0244, Y 



get a byte from buffer 

get buffer and channel number 

end pointer 

get byte from buffer 

buffer pointer 
equal end pointer? 
no 

buffer pointer to -1 
data byte 

increment buffer pointer 

get character from buffer 
increment buffer pointer 



get byte and read next block 

get byte from buffer 

not last character? 

save data byte 

end pointer 

yes 

READ-flag 
data byte 



change buffer and read next block 

set buffer pointer to zero 

get first byte from buffer 

track number zero 

yes, then last block 

save last track number 

get next byte 

save as following track 

change buffer and read next block 

save drive number 

param to disk controller 

transmit read command 

change buffer and read block 

get data byte 



get next byte from buffer 
save as end pointer 
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D19A A5 85 LDA $85 

D19C 60 RTS 
****************************** 



D19D 


20 


Fl 


CF 


JSR 


$CFF1 


D1A0 


F0 


01 




BE0 


$D1A3 


D1A2 


60 






RTS 




D1A3 


20 


D3 


Dl 


JSR 


$D1D3 


D1A6 


20 


IE 


Fl 


JSR 


$F11E 


D1A9 


A9 


00 




LDA 


#$00 


D1AB 


20 


C8 


D4 


JSR 


$D4C8 


D1AE 


A5 


80 




LDA 


$80 


D1B0 


20 


Fl 


CF 


JSR 


$CFF1 


D1B3 


A5 


81 




LDA 


$81 


D1B5 


20 


Fl 


CF 


JSR 


$CFF1 


D1B8 


20 


C7 


DO 


JSR 


$D0C7 


D1BB 


20 


IE 


CF 


JSR 


$CF1E 


D1BE 


20 


DO 


D6 


JSR 


$D6D0 


D1C1 


A9 


02 




LDA 


#$02 


D1C3 


4C 


C8 


D4 


JMP 


$D4C8 


**************************** 


D1C6 


85 


6F 




STA 


$6F 


D1C8 


20 


E8 


D4 


JSR 


$D4E8 


D1CB 


18 






CLC 




D1CC 


65 


6F 




ADC 


$6F 


DICE 


95 


99 




STA 


$99, X 


DIDO 


85 


94 




STA 


$94 


D1D2 


60 






RTS 





****************************** 



D1D3 


20 


93 


DF 


JSR 


$DF93 


D1D6 


AA 






TAX 




D1D7 


BD 


5B 


02 


LDA 


$025B,X 


D1DA 


29 


01 




AND 


#$01 


D1DC 


85 


7F 




STA 


$7F 


D1DE 


60 






RTS 




*****************************! 


D1DF 


38 






SEC 




D1E0 


BO 


01 




BCS 


$D1E3 


****************************** 


D1E2 


18 






CLC 




D1E3 


08 






PHP 




D1E4 


85 


6F 




STA 


$6F 


D1E6 


20 


27 


D2 


JSR 


$D227 


D1E9 


20 


7F 


D3 


JSR 


$D37F 


D1EC 


85 


82 




STA 


$82 


D1EE 


A6 


83 




LDX 


$83 


D1F0 


28 






PLP 




D1F1 


90 


02 




BCC 


SD1F5 


D1F3 


09 


80 




ORA 


#$80 


D1F5 


9D 


2B 


02 


STA 


$022B,X 


D1F8 


29 


3F 




AND 


#$3F 



get data byte back 

byte in buffer and write block 
byte in buffer 
buffer full? 



get drive number 

find free block in BAM 

buffer pointer to zero 

track number as first byte 

sector number as second byte 

write block 

change buffer 

param to disk controller 

buffer pointer to 2 

increment buffer pointer 

get buffer pointer 



and increment 



get drive number 
get drive number 

isolate drive number 
and save 



find write channel and buffer 
flag for writing 



find read channel and buffer 

flag for reading 

save 

buffer number 
close channel 
allocate free channel 
channel number 
secondary address 

read channel? 
flag for writing 
set 
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D1PA 


A8 






in! 




D1FB 


A9 


FF 
r r 




LDA 


ft Pi r 


D1FD 


99 




nn 
uu 


OTA 




D200 


99 




uu 


CTfl 
Oln 


9 UUAh t Y 


D203 


99 


CD 


00 


era 


pUUtL), Y 


D206 


C6 


6F 






? o r 


D208 


30 


1C 




DMT 

DPI J. 


$ D226 


02 OA 


20 


8E 


r»9 
uz 


O OR 


$ D28E 


D20D 


10 


08 




RPT 


< no i ■? 


D20F 


20 


5A 


D2 


TCT5 




D212 


A9 


70 




LDA 


#S70 


D214 


4C 


C8 


CI 


JMP 


$C1C8 


D217 


99 


A7 


00 


STA 


$00A7,Y 


D21A 


C6 


6F 




DEC 


$6F 


D21C 


30 


08 




BMI 


$D226 


D21E 


20 


8E 


D2 


JSR 


$D28E 


D221 


30 


EC 




BMI 


$D20F 


D223 


99 


AE 


00 


STA 


$00AE,Y 


D226 


60 






RTS 




****************************** 


D227 


A5 


83 




LDA 


$83 


D229 


C9 


OF 




CMP 


#$0F 


D22B 


DO 


01 




BNE 


$D22E 


D22D 


60 






RTS 


D22E 


A6 


83 




LDX 


S83 


D230 


BD 


2B 


02 


LDA 


S022B,X 


D233 


C9 


FF 




CMP 


#$FF 


D235 


FO 


22 




BEQ 


$D259 


D237 


29 


3F 




AND 


#$3F 


D239 


85 


82 




STA 


$82 


D23B 


A9 


FF 




LDA 


#$FF 


D23D 


9D 


2B 


02 


STA 


$022B,X 


D240 


A6 


82 




LDX 


$82 


D242 


A9 


00 




LDA 


#$00 


D244 


95 


F2 




STA 


$F2,X 


D246 


20 


5A 


D2 


JSR 


$D25A 


D249 


A6 


82 




LDX 


$82 


D24B 


A9 


01 




LDA 


#$01 


D24D 


CA 






DEX 




D24E 


30 


03 




BMI 


$D253 


D250 


OA 






ASL 


A 


D251 


DO 


FA 




BNE 


$D24D 


D253 


OD 


56 


02 


ORA 


$0256 


D256 


8D 


56 


02 


STA 


$0256 


D259 


60 






RTS 




****************************** 


D25A 


A6 


82 




LDX 


$82 


D25C 


B5 


A7 




LDA 


$A7,X 


D25E 


C9 


FF 




CMP 


#$FF 


D260 


FO 


09 




BEQ 


SD26B 



D262 48 PHA 
D263 A9 FF LDA #$FF 



Anatomy of the 1541 Disk Drive 



default value 

write in associated table 

decrement buffer number 
done already? 
find buffer 
found? 

erase flags in table 

70, 'no channel' 
buffer number in table 
buffer number 
already done? 
find buffer 
not found? 

buffer number in table 



close channel 
secondary address 
15? 
no 

else done already 



channel number 
not associated? 
then done 

channel number 

erase association in table 



erase READ and WRITE flag 
free buffer 
channel number 
set bit 

shift to correct position 



free in allocation register 



free buffer 
channel number 
buffer number 

not associated? 
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D265 


95 


A7 




STA 


$A7 ,X 


D267 


68 






PLA 




D268 


20 


F3 


D2 


JSR 


$D2F3 


D26B 


A6 


82 




LDX 


$82 


D26D 


B5 


AE 




LDA 


$AE,X 


D26F 


C9 


FF 




CMP 


#$FF 


D271 


F0 


09 




BEQ 


$D27C 


D273 


48 






PHA 




D274 


A9 


FF 




LDA 


#$FF 


D276 


95 


AE 




STA 


$AE,X 


D278 


68 






PLA 




D279 


20 


F3 


D2 


JSR 


$D2F3 


D27C 


A6 


82 




LDX 


$82 


D27E 


B5 


CD 




LDA 


$CD,X 


D280 


C9 


FF 




CMP 


#$FF 


D282 


F0 


09 




BEQ 


$D28D 


D284 


48 






PHA 




D285 


A9 


FF 




LDA 


#$FF 


D287 


95 


CD 




STA 


$CD,X 


D289 


68 






PLA 




D28A 


20 


F3 


D2 


JSR 


$D2F3 


D28D 


60 






RTS 




****************************** 


D28E 


98 






TYA 




D28F 


48 






PHA 




D290 


AO 


01 




LDY 


#$01 


D292 


20 


BA 


D2 


JSR 


$ D2BA 


D295 


10 


OC 




BPL 


$D2A3 


D297 


88 






DEY 




D298 


20 


BA 


D2 


JSR 


$D2BA 


D29B 


10 


06 




BPL 


$D2A3 


D29D 


20 


39 


D3 


JSR 


$D339 


D2A0 


AA 






TAX 




D2A1 


30 


13 




BMI 


$D2B6 


D2A3 


B5 


00 




LDA 


$00, X 


D2A5 


30 


FC 




BMI 


$D2A3 


D2A7 


A5 


7F 




LDA 


$7F 


D2A9 


95 


00 




STA 


$00, X 


D2AB 


9D 


5B 


02 


STA 


$025B,X 


D2AE 


. 8A 






TXA 




D2AF 


OA 






ASL 


A 


D2B0 


A8 






TAY 




D2B1 


A9 


02 




LDA 


#$02 


D2B3 


99 


99 


00 


STA 


$0099, Y 


D2B6 


68 






PLA 




D2B7 


A8 






TAY 




D2B8 


8A 






TXA 




D2B9 


60 






RTS 





erase buffer association 

erase buffer allocation register 
channel number 

associated in second table? 
no 

erase association 

erase buffer in allocation reg. 
channel number 

associated in 3rd table? 
no 

erase association 

erase buffer in allocation reg 

find buffer 



D2BA 


A2 


07 




LDX 


#$07 


D2BC 


B9 


4F 


02 


LDA 


$024F,Y 


D2BF 


3D 


E9 


EF 


AND 


$EFE9,Y 


D2C2 


F0 


04 




BE0 


$D2C8 


D2C4 


CA 






DEX 
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10 F5 
60 



BPL $D2BC 
RTS 



B9 4F 02 LDA $024F,Y 



5D E9 EF 
99 4F 02 
8A 
88 

30 03 
18 

69 08 
AA 



FOR $EFE9,X 
STA $024F,Y 
TXA 
DEY 

BMI SD2D8 
CLC 

ADC #$08 
TAX 



rotate bit 



buffer number 



buffer number 



D2C5 
D2C7 

D2C8 
D2CB 
D2CE 
D2D1 
D2D2 
D2D3 
D2D5 
D2D6 
D2D8 



D2D9 


60 






RTS 




D2DA 


A6 


82 




LDX 


$82 


D2DC 


B5 


A7 




LDA 


$A7,X 


D2DE 


30 


09 




BMI 


$D2E9 


D2E0 


8A 






TXA 




D2E1 


18 






CLC 




D2E2 


69 


07 




ADC 


#$07 


D2E4 


AA 






TAX 




D2E5 


DD 


A / 




LDA 


$A7,X 


D2E7 


10 


F0 




BPL 


$D2D9 


D2E9 


C9 


FF 




CMP 


#$FF 


D2EB 


F0 


EC 




BEQ 


$D2D9 


D2ED 


48 






PHA 




D2EE 


A9 


FF 




LDA 


#$FF 


D2F0 


95 


A7 




STA $A7,X 


D2F2 


68 






PLA 




D2F3 


29 


OF 




AND 


#$0F 


D2F5 


A8 






TAY 




D2F6 


C8 






INY 




D2F7 


A2 


10 




LDX 


#$10 


D2F9 


6E 


50 


02 


ROR 


$0250 


D2FC 


6E 


4F 


02 


ROR 


$024F 


D2FF 


88 






DEY 




D300 


DO 


01 




BNE 


SD303 


D302 


18 






CLC 




D303 


CA 






DEX 




D304 


10 


F3 




BPL 


SD2F9 


D306 


60 






RTS 




***************************** 


D307 


A9 


0E 




LDA 


#$0E 


D309 


85 


83 




STA 


$83 


D30B 


20 


27 


D2 


JSR 


SD227 


D30E 


C6 


83 




DEC 


$83 


D310 


DO 


F9 




BNE 


$D30B 


D312 


60 






RTS 




***************************** 


D313 


A9 


0E 




LDA 


#$0E 


D315 


85 


83 




STA 


$83 


D317 


A6 


83 




LDX 


$83 


D319 


BD 


2B 


02 


LDA 


$022B,X 


D31C 


C9 


FF 




CMP 


#$FF 



buffer number 
16 

rotate 16-bit allocation reg. 
erase bit for buffer 



close all channels 
14 

secondary address 

close channel 

next secondary address 



close channels of other drives 
14 

secondary address 

association table 
channel associated? 
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D31E 


FO 


14 


BEQ $D334 


D320 


29 


3F 


AND #$3F 


D322 


85 


82 


STA $82 


D324 


20 


93 DF 


JSR $DF93 


D327 


AA 




TAX 


D328 


BD 


5B 02 


LDA $025B,X 


D32B 


29 


01 


AND #$01 


D32D 


C5 


7F 


CMP $7F 


D32F 


DO 


03 


BNE $D334 


D331 


20 


27 D2 


JSR $D227 


D334 


C6 


83 


DEC $83 


D336 


10 


DF 


BPL $D317 


D338 


60 




RTS 


****************************** 


D339 


A5 


6F 


LD A ? O r 


D33B 


48 




PHA 


D33C 


AO 


00 


r rw u c n n 
LDY # ? U U 


D33E 


B6 


FA 


LUX «?r A f I 


D340 


B5 


A7 


LDA 5>A7 , X 


D342 


10 


04 


BPL $DJ4o 


D344 


C9 


FF 


CMP #$FF 


D346 


DO 


16 


BNE 


D348 


8A 




TXA 


D349 


18 




CLC 


D34A 


69 


07 


ADC #507 


D34C 


AA 




TAX 


D34-D 


B5 


A7 


LDA 5A7 ,X 


D34F 


10 


04 


BPL $D355 


D351 


C9 


FF 


nun Ji 6 o c 

CMP #?rr 


D353 


DO 


09 


BNE 5D35E 


D355 


C8 




INY 


D356 


CO 


05 


CPY #$05 


D358 


90 


E4 


BCC $D33E 


D35A 


A2 


FF 


LDX #$FF 


D35C 


DO 


1C 


BNE $D37A 


D35E 


86 


6F 


STX $6F 


D360 


29 


3F 


AND #$3F 


D362 


AA 




TAX 


D363 


B5 


00 


LDA $00, X 


D365 


30 


FC 


BMI $D363 


D367 


C9 


02 


CMP #$02 


D369 


90 


08 


BCC $D373 


D36B 


A6 


6F 


LDX $6F 


D36D 


EO 


07 


CPX #$07 


D36F 


90 


D7 


BCC $D348 


D371 


BO 


E2 


BCS $D355 


D373 


A4 


6F 


LDY $6F 


D375 


A9 


FF 


LDA #$FF 


D377 


99 


A7 00 


STA $00A7,Y 


D37A 


68 




PLA 


D37B 


85 


6F 


STA $6F 


D37D 


8A 




TXA 


D37E 


60 




RTS 



no 

channel number 
get buffer number 

drive number 
isolate 

equal to actual drive number 
no 

close channel 
next channel 
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****************************** 



D37F 


AO 


00 




LDY 


#$00 


D381 


A9 


01 




LDA 


#$01 


D383 


2C 


56 


02 


BIT 


$0256 


D386 


DO 


09 




BNE 


$D391 


D388 


C8 






INY 




D389 


OA 






ASL 


A 


D38A 


DO 


F7 




BNE 


$D383 


D38C 


A9 


70 




LDA 


#$70 


D38E 


4C 


C8 


CI 


JMP 


$C1C8 


D391 


49 


FF 




EOR 


#$FF 


D393 


2D 


56 


02 


AND 


$0256 


D396 


8D 


56 


02 


STA 


$0256 


D399 


98 






TYA 




D39A 


60 






RTS 




*****************************: 


D39B 


20 


EB 


DO 


JSR 


$D0EB 


D39B 


20 


00 


CI 


JSR 


$C100 


D3A1 


20 


AA 


D3 


JSR 


$D3AA 


D3A4 


A6 


82 




LDX 


$82 


D3A6 


BD 


3E 


02 


LDA 


$023E,X 


D3A9 


60 






RTS 




D3AA 


A6 


82 




LDX 


$82 


D3AC 


20 


25 


Dl 


JSR 


$D125 


D3AF 


DO 


03 




BNE 


$D3B4 


D3B1 


4C 


20 


El 


JMP 


$E120 


D3B4 


A5 


83 




LDA 


$83 


D3B6 


C9 


OF 




CMP 


#$0F 


D3B8 


F0 


5A 




BEO 


$D414 


D3BA 


B5 


F2 




LDA 


$F2,X 


D3BC 


29 


08 




AND 


#$08 


D3BE 


DO 


13 




BNE 


$D3D3 


D3C0 


20 


25 


Dl 


JSR 


$D125 


D3C3 


C9 


07 




CMP 


#$07 


D3C5 


DO 


07 




BNE 


$D3CE 


D3C7 


A9 


89 




LDA 


#$89 


D3C9 


95 


F2 




STA 


$F2,X 


D3CB 


4C 


DE 


D3 


JMP 


$D3DE 


D3CE 


A9 


00 




LDA 


#$00 


D3D0 


95 


F2 




STA 


$F2,X 


D3D2 


60 






RTS 




D3D3 


A5 


83 




LDA 


$83 


D3D5 


FO 


32 




BEO 


$D409 


D3D7 


20 


25 


Dl 


JSR 


SD125 


D3DA 


C9 


04 




CMP 


#$04 


D3DC 


90 


22 




BCC 


$D400 


D3DE 


20 


2F 


Dl 


JSR 


$D12F 


D3E1 


B5 


99 




LDA 


$99, X 



find channel and allocate 

set bit 

channel free? 

rotate bit to left 
all channels checked? 

70, 'no channel' 

rotate bit model 
erase bit 
allocate channel 



get byte for output 
open channel for reading 
turn LED on 

get byte in output register 
channel number 
get byte 



channel number 

check file type 

no rel-file? 

get byte from rel-file 

secondary address 
15 

yes, read error channel 

end flag set? 
no 

check file type 
direct access file? 
no 

set READ and WRITE flag 



erase READ and WRITE flag 



secondary address 

zero, LOAD? 

check file type 

rel-file or direct access? 

no 

get buffer and channel number 
buffer pointer 
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D3E3 


D9 


44 


02 


CMP 


$0244 ,Y 


equal end pointer? 


D3E6 


DO 


04 




BNE 




no 




AQ 

A3 


uu 










D3EA 


95 


99 




STA 


$99 ,X 


buffer pointer to zero 


D3EC 


F6 


99 




INC 


$99, X 


increment buffer pointer 


D3EE 


Al 


99 




LDA 


($99 ,X) 


get byte from buffer 


D3F0 


99 


3E 


02 


STA 


S* v & J Lt f i 




D3F3 


B5 


99 




LDA 


$99 ,X 


huff AT* no i nf-pr 


D3F5 


D9 


44 


02 


CMP 


$0244 , Y 


Anna! And nni nhpr? 


D3F8 


DO 


05 




BNE 


$D3FF 


no 


D3FA 


A9 


81 




LDA 


#$81 




D3FC 


99 


F2 


00 


STA 


$00F2 , Y 


set flags 


D3FF 


60 






RTS 






D400 


20 


56 


Dl 


JSP 


$D156 


get byte from buffer 


D403 


A6 


82 




LDX 


$82 


channel number 


D405 


9D 


3E 


02 


STA 


$023E ,X 


byte i n output reg ister 


D408 


60 






RTS 






D409 


AD 


54 


02 


LDA 


$0254 


flag for directory? 


D40C 


F0 


F2 




BEQ 


$D400 


no 


D40E 


20 


67 


ED 


JSR 


$ED67 


create directory line 


D4 11 


4C 


03 


D4 


J MP 


$D403 




D414 


20 


E8 


D4 


JSR 


$D4E8 


set buffer pointer 


D417 


C9 


D4 




CMP 


#$D4 




D419 


DO 


18 




BNE 


SD433 




D4 IB 


A5 


95 




LDA 


$95 




D41D 


C9 


02 




CMP 


#$02 




D41F 


DO 


12 




BNE 


$D433 




D421 


A9 


0D 




LDA 


#$0D 


CR 


D423 


85 


85 




STA 


$85 


in output register 


D425 


20 


23 


CI 


JSP 


$C123 


erase error flags 


D428 


A9 


00 




LDA 


ss no 




D42A 


20 


CI 


E6 


JSR 


$E6C1 


create 'ok 1 message 


D42D 


C6 


A5 




DEC 


$A5 


set buffer pointer back 


D42F 


A9 


80 




LDA 


#$80 


set READ flag 


D431 


DO 


12 




BNE 


$D445 




D433 


20 


37 


Dl 


JSR 


$D137 


get byte from buffer 


D436 


85 


85 




STA 


$85 


into output register 


D438 


DO 


09 




BNE 


SD443 




D43A 


A9 


D4 




LDA 


#$D4 




D43C 


20 


C8 


D4 


JSR 


SD4C8 


set buf ptr in front of error 


D4 3F 


A9 


02 




LDA 


#$02 




D441 


95 


9A 




STA 


$9A,X 


hi— 'address 


D443 


A9 


88 




LDA 


#$88 


set READ flag 


D445 


85 


F7 




STA 


$F7 




D447 


A5 


85 




LDA 


$85 


data byte 


D449 


8D 


43 


02 


STA 


$0243 


into output register 


D44C 


60 






RTS 






****************************** 


read next block 


D44D 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


D450 


OA 






ASL 


A 


times 2 
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D451 


AA 




TAX 




D452 


A9 


00 


LDA 


#$00 


D454 


95 


99 


STA 


$99, X 


D456 


Al 


99 


LDA 


($99, X) 


D458 


FO 


05 


BEO 


$D45F 


D45A 


D6 


99 


DEC 


$99 ,X 


D45C 


4C 


56 Dl 


JMP 


$D156 


D45P 


60 




RTS 





D460 A9 80 LDA #$80 

D462 DO 02 BNE $D466 

********** ******************** 



D464 


A9 


90 




LDA 


#$90 


D466 


05 


7F 




ORA 


$7F 


D468 


8D 


4D 


02 


STA 


S024D 


D46B 


A5 


F9 




LDA 


$F9 


D46D 


20 


D3 


D6 


JSR 


$D6D3 


D470 


A6 


F9 




LDX 


$F9 


D472 


4C 


93 


D5 


JMP 


$D593 



****************************** 



D475 


A9 


01 




LDA 


#$01 


D477 


8D 


4A 


02 


STA 


$024A 


D47A 


A9 


11 




LDA 


#$11 


D47C 


85 


83 




STA 


$83 


D47E 


20 


46 


DC 


JSR 


$DC46 


D481 


A9 


02 




LDA 


#$02 


D483 


4C 


C8 


D4 


JMP 


$D4C8 


***************************. 


D486 


A9 


12 




LDA 


#$12 


D488 


85 


83 




STA 


$83 


D48A 


4C 


DA 


DC 


JMP 


$DCDA 


A**************************. 


D48D 


20 


3B 


DE 


JSR 


$DE3B 


D490 


A9 


01 




LDA 


#$01 


D492 


85 


6F 




STA 


$6F 


D494 


A5 


69 




LDA 


$69 


D496 


48 






PHA 




D497 


A9 


03 




LDA 


#$03 


D499 


85 


69 




STA 


$69 


D49B 


20 


2D 


Fl 


JSR 


$F12D 


D49E 


68 






PLA 




D49F 


85 


69 




STA 


$69 


D4A1 


A9 


00 




LDA 


#$00 


D4A3 


20 


C8 


D4 


JSR 


$D4C8 


D4A6 


A5 


80 




LDA 


$80 


D4A8 


20 


Fl 


CF 


JSR 


SCFF1 


D4AB 


A5 


81 




LDA 


$81 


D4AD 


20 


Fl 


CF 


JSR 


SCFF1 


D4B0 


20 


C7 


DO 


JSR 


$D0C7 


D4B3 


20 


99 


D5 


JSR 


$D599 



buffer pointer to zero 
get first byte from buffer 
no block following? 
buffer pointer to -1 
read next block 



read block 

command code for reading 
write block 

command code for writing 
drive number 
save code 

param to disk controller 
execute command 

allocate buffer and read block 

file type to sequential 
17 

secondary address 

allocate buffer and read block 

buffer pointer to 2 

allocate new block 
18 

secondary address 
allocate new block 

write directory block 

get track and sector number 

a block 

save step width 10 for block 
allocation 



find free block in BAM 

get step width back 

buffer pointer to zero 

track number in buffer 

sector number in buffer 
write block to disk 
and verify 
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D4B6 


A9 


00 




LDA 


#$00 


D4B8 


20 


C8 


D4 


JSR 


$D4C8 


D4BB 


20 


Fl 


CF 


JSR 


$CFF1 


D4BE 


DO 


FB 




BNE 


$D4BB 


D4C0 


20 


Fl 


CF 


JSR 


$CFF1 


D4C3 


A9 


FF 




LDA 


#$FF 


D4C5 


4C 


Fl 


CF 


JMP 


$CFF1 


**************************** 


D4C8 


85 


6F 




STA 


$6F 


D4CA 


20 


93 


DF 


JSR 


$DF93 


D4CD 


OA 






ASL 


A 


D4CE 


AA 






TAX 




D4CF 


B5 


9A 




LDA 


$9A,X 


D4D1 


85 


95 




STA 


$95 


D4D3 


A5 


6F 




LDA 


$6F 


D4D5 


95 


99 




STA 


$99 ,X 


D4D7 


85 


94 




STA 


$94 


D4D9 


60 






RTS 




*************************** 


D4DA 


A9 


11 




LDA 


#$11 


D4DC 


85 


83 




STA 


$83 


D4DE 


20 


27 


D2 


JSR 


$D227 


D4E1 


A9 


12 




LDA 


#$12 


D4E3 


85 


83 




STA 


$83 


D4E5 


4C 


27 


D2 


JMP 


$D227 



****************************** 



D4E8 


20 


93 


DF 


JSR 


$DF93 


D4EB 


OA 






ASL 


A 


D4EC 


AA 






TAX 




D4ED 


B5 


9A 




LDA 


$9A,X 


D4EF 


85 


95 




STA 


$95 


D4F1 


B5 


99 




LDA 


$99, X 


D4F3 


85 


94 




STA 


$94 


D4F5 


60 






RTS 




***************************** 


D4F6 


85 


71 




STA 


$71 


D4F8 


20 


93 


DF 


JSR 


SDF93 


D4FB 


AA 






TAX 




D4FC 


BD 


EO 


FE 


LDA 


$FEE0,X 


D4FF 


85 


72 




STA 


$72 


D501 


AO 


00 




LDY 


#$00 


D503 


Bl 


71 




LDA 


($71), Y 


D505 


60 






RTS 




***************************** 


D506 


BD 


5B 


02 


LDA 


$025B,X 


D509 


29 


01 




AND 


#$01 


D50B 


OD 


4D 


02 


ORA 


$024D 


D50E 


A8 






PHA 




D50F 


86 


F9 




STX 


$F9 


D511 


8A 






TXA 





buffer pointer to zero 
fill buffer with zeroes 

zero as following track 

$FF as number of bytes 

set buffer pointer 
save pointer 
get buffer number 
times 2 

buffer pointer hi 



buffer pointer lo, new value 



close internal channel 
17 

close channel 
18 

close channel 

set buffer pointer 
get buffer number 



buffer pointer hi 
buffer pointer lo 



get byte from buffer 

pointer lo 

get buffer number 

hi-byte buffer address 
pointer hi 

get byte from buffer 



check track and sector numbers 
command code for disk controller 
drive number 
plus command code 
save 

buffer number 
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D512 


OA 






ASL 




tirn0s 2 


D513 


AA 






TAX 






D514 


B5 


07 




r na 


<5 m v 

Vv / f A 


sector 


D516 


8D 


4D 


02 


STA 


$024D 


S3 VS 


D519 


B5 


06 




LDA 


$06 ,X 




D51B 


FO 


2D 




BEO 


SD54A 


oo , illegal track or sector 


D51D 


CD 


D7 


FE 




e pun? 


36, highest track number + 1 


D520 


BO 


28 




OLD 


C T\K A a 

9L04A 


66, 'illegal track or sector 


D522 


AA 






TAX 




D523 


68 






PLA 




L.vjiiuiia i iu cooe 


D524 


48 






PHA 






D525 


29 


FO 




AND 






D527 


C9 


90 




CMP 




, _ 

code tor writing? 


D529 


DO 


4F 




BNE 


$D57A 


no 


D52B 


68 






PLA 






D52C 


48 






PHA 






D52D 


4A 






LSR 






D52E 


BO 


05 




BCS 


SD535 




D530 


AD 


01 


01 


LDA 


$0101 




D533 


90 


03 




BCC 


$D538 




D535 


AD 


02 


01 


LDA 


$0102 




D538 


FO 


05 




BEO 


$D53F 




D53A 


CD 


D5 


FE 


CMP 


$ FED5 


, rormat marKer 


D53D 


DO 


33 




BNE 


$D572 


73, 'cbm dos v2.6 1541' 


D53F 


8A 






TXA 




track number 


D540 


20 


4B 


F2 


JSR 


$F24B 


06 1 m A Y 1 m 1 im eopf f^r niimhar 


D543 


CD 


4D 


02 


CMP 


$024D 


compare with sector number 


D546 


FO 


02 




BEO 


$D54A 


equai, cnen error 


D548 


BO 


30 




BCS 


$D57A 




D54A 


20 


52 


D5 


JSR 


SD552 


yet llciln aiiu sector nuiPDcr 


D54D 


A9 


66 




LDA 


#$66 


D54F 


4C 


45 


E6 


JMP 


SE645 


ou, liieydi ciaiK or sec tor 


****************************** 


get track and sector number 


D552 


A5 


F9 




LDA 


$F9 


buffer number 


D554 


OA 






ASL 


A 


*2 


D555 


AA 






TAX 




as index 


D556 


B5 


06 




LDA 


$06, X 




D558 


85 


80 




STA 


$80 


track 


D55A 


B5 


07 




LDA 


$07, X 




D55C 


85 


81 




STA 


$81 




D55E 


60 






RTS 






D55F 


A5 


80 




LDA 


$80 


track 


D561 


FO 


EA 




BEO 


SD54D 


zero, then error 


D56 3 


CD 


D7 


FE 


CMP 


SFED7 


36, maximum track number + 1 


D566 


BO 


E5 




BCS 


SD54D 


v/ , liicyai ^- 1_ Cl i\ VJL O %? \* LUL 


D568 


20 


4B 


F2 


JSR 


$F24B 


get maximum sector number 


D56B 


C5 


81 




CMP 


$81 


sector 


D56D 


FO 


DE 




BEO 


SD54D 




D56F 


90 


DC 




BCC 


$D54D 


error 


D571 


60 






RTS 






D572 


20 


52 


D5 


JSR 


SD552 


get track and sector numbei 


D575 


A9 


73 




LDA 


#$73 
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D577 


4C 


45 


E6 


JMP 


$E645 


73, 'cbm dos v2.6 1541' 


D57A 


A6 


F9 




LDX 


$F9 


buffer number 


D57C 


68 






PLA 




command code for disk controller 


D57D 


8D 


4D 


02 


STA 


$024D 


D580 


95 


00 




STA 


$00 ,x 


in command register 


D58 2 


9D 


5B 


02 


STA 


$025B,X 


and write in table 


D585 


60 






RTS 







****************************** 


read block 


D586 


A9 


80 




LDA #$80 


code for read 


D588 


DO 


02 




BNE $D58C 




****************************** 


write block 


D58A 


A9 


90 




LDA #$90 


code for write 


D58C 


05 


7F 




ORA $7F 


drive number 


D58E 


A6 


F9 




LDX $F9 


buffer number 


D590 


8D 


4D 


02 


STA $024D 




D593 


AD 


4D 


02 


LDA $024D 


command code 


D596 


20 


0E 


D5 


JSP $D50E 


check track and sector 


****************************** 


verify execution 


D599 


20 


A6 


D5 


JSR $D5A6 


verify execution 


D59C 


B0 


FB 




BCS $D599 


wait for end 


D59E 


48 






PHA 




D59F 


A9 


00 




LDA #$00 




D5A1 


8D 


98 


02 


STA $0298 


erase error flag 


D5A4 


68 






PLA 




D5A5 


60 






RTS 




D5A6 


B5 


00 




LDA $00, X 


cmd code (bit 7) still in 


D5A8 


30 


1A 




BMI $D5C4 


yes 


D5AA 


C9 


02 




CMP #$02 




D5AC 


90 


14 




BCC $D5C2 


error-free execution 


D5AE 


C9 


08 




CMP #$08 


8 


D5B0 


F0 


08 




BEO $D5BA 


write protect 


D5B2 


C9 


OB 




CMP #$0B 


11 


D5B4 


F0 


04 




BEO $D5BA 


ID mismatch 


D5B6 


C9 


OF 




CMP #$0F 


15 


D5B8 


DO 


OC 




BNE SD5C6 




D5BA 


2C 


98 


02 


BIT $0298 




D5BD 


30 


03 




BMI SD5C2 




D5BF 


4C 


3F 


D6 


JMP SD63F 


create error message 


D5C2 


18 






CLC 


execution ended 


D5C3 


60 






RTS 




D5C4 


38 






SEC 


execution not yet ended 


D5C5 


60 






RTS 




D5C6 


98 






TYA 




D5C7 


48 






PHA 




D5C8 


A5 


7F 




LDA $7F 


drive number 


D5CA 


48 






PHA 




D5CB 


BD 


5B 


02 


LDA $025B,X 
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90 

£.3 


m 




AND 


#501 


drive number 


DO DU 


O D 


/ r 




STA 


$7F 




D5D2 


Ao 






TAY 






nCM 
UjUj 


DQ 


L.A 


FE 


LDA 


9 r bt-A , Y 


bit model for drive 


n^nfi 

UD UO 


on 
o JJ 


fin 

O U 




STA 


9 U Zou 




D5D9 


9n 


«0 


DO 


JSR 


c nc a fi 
9 DO Ao 


read attempt 


D5DC 


pq 


U z 




CMP 


ff 9UZ 


D5 DE 


DU 


fl ^ 
U J 






fi nd in 
9DDbD 


not ok? 


D5E0 


4C 


fin 




TMD 


fi nC fi n 
9 UDDU 


done 


D5E3 


BD 


5B 


n 9 


t na 
LiUn 


9 v ZDD r A 


command code 


D5E6 


29 


pn 




AND 


ff 9r U 


isolate 


D5E8 


to 






DOS 






D5E9 


PQ 








fry? u 


code for write 


D5EB 


DO 


07 




DHP 
D1XC 


fi nR A 
9 UD r *± 


no 


D5 ED 


a 1 ; 

i\D 


/ r 




t na 


fi "7 P 

9 / r 


drive number 


D5EF 


09 


DO 
DO 




UKn 


JICdQ 

ff 9 BO 




D5F1 


9D 


5B 


02 


STA 






D5F4 


24 


6A 




BIT 


$6A 




D5F6 


70 


J7 






fi n<; q l 
9 DO D 1 




D5F8 


A9 


00 




t na 

LiUn 


flfi nn 

#9 I'U 




D5FA 


8D 


99 


02 


STA 


$0299 


cull cotr searcnes next co cracK 


D5FD 


8D 


9A 


02 


STA 


sn 9Qa 




D600 


AC 


99 


02 


r nv 

LiU I 


fin 9QQ 


coun ter 


D603 


AD 


9A 


02 


LDA 


$ 29A 




D606 


38 






■sou 






D607 


F9 


DB 


FE 


cnp 


fi ppnn v 
9 r &DD f I 


constants for read attempts 


D6 OA 


8D 


9A 


02 


STA 


S029A 


D60D 


B9 


DB 


FE 


LDA 


fi P P DR V 




D61 


20 


7fi 


nfi 

UD 


TGD 


fi nfi*7 fi 

9 DO / O 


pos it ion head next to track 


D6 13 


EE 


99 


02 


INC 


fi n 9 QQ 

9 U £. 3 3 


increment counter 


D616 


20 


A6 


D6 


TCO 


fi nfiafi 

9 UDftO 


read a tempt 


D619 


C9 


02 




CMP 


# 9 U <£ 


^ii v*r"\ nrt g~\ ^ a a 

Lcturn messaye 


D61B 


90 


08 




DPP 


fi nfi 9 1: 
9 DO ZD 


smaller than 2 , ok? 


D61D 


AC 


99 


02 


t nv 


fi n 9QQ 


load counter 


D620 


B9 




pp 
r Hi 


t na 
LiUA 


9r dud t i 


get constants 


D623 


DO 


DB 




RMP 


fi nfinn 
9 UD uu 


not yet zero (table end)? 


D625 


AD 


9A 


02 


r na 


fi n9Qa 


D6 28 


20 


76 


nfi 

UD 


T CD 


fir\fi *7fi 
9 Do /O 


position head 


D62B 


B5 


00 




LDA 


$00 , X 


D62D 


C9 


02 




CMP 


#$02 


return message 


D62F 


90 


2B 




BCC 


fi nfi ^p 

9 UD DL. 


OK f 


D631 


24 


6A 




RTT 


fi fia 

9 Ort 




nfi 1 7 

UO J D 


i. u 


F 




BPL 


$D644 




D635 


fi fi 

DO 






PLA 




command code 


nfi T a 


CO, 


y U 




CMP 


#$90 


for writing? 


D638 


nn 
uu 


UD 




BNE 


$D63F 


no 


D63A 


05 


7F 




ORA 


$7F 


drive number 


D63C 


9D 


5B 


02 


STA 


$025B,X 


command code in table 


D63F 


B5 


00 




LDA 


$00, X 


return message 


D641 


20 


OA 


E6 


JSP 


SE60A 


set error message 


D644 


68 






PLA 




D645 


2C 


98 


02 


BIT 


$0298 




D648 


30 


23 




BMI 


$D66D 




D64A 


48 






PHA 






D64B 


A9 


CO 




LDA 


#$C0 


command code for head positioning 
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UOhU 


nR 


/ r 






5> / r 


unve nuniuer 


D6 4 F 


y d 


UU 




STA 


o nn v 

>UU f A 


in command reg ister 


Dbi> J. 


nc 
DD 


nn 
UU 




LDA 


c: n n v 




UD J J 


■*n 

jU 


Pf 1 




DM T 
t>ri J. 


•? UD O X 


t.t a 4 ♦* £ t~\V ovonnf i r»n 


UD DD 


20 


afi 

ftD 


LJD 


TCP 
J o t\ 


9 UD ftD 




UD jo 


HQ 


02 




CMP 


ji^ n 9 


Lcuutii iiiCr o o a y c 


nfi Ra 

UO Jri 


BO 


D9 




nLD 


$ D6 35 


i n i~t*(S f t* *•* 

lll^UL I. L- > 




68 






PLA 






UO 3 U 


L.y 


y u 






xt c q n 


i^/Mtim anH ^^"\H^ /-\ >- *■ ^ nsf 

c-uiiiiu a uu luuc iul wtit iny 


nfi rp 
lid or 


DO 






BNE 


•? UD D U 




UO D J. 


05 


7F 




ORA 


S7P 


flfi i7 o numhpv 

VlJ. J. VC IIUIIILJCI. 


JJD D J 


Qn 
y u 




n 9 

u z 


era 

o ±ft 


Cnocn y 

?UZJD f a 


±11 Louie 


UD D D 


20 


A6 


UD 


TCP 


$ D6A6 


CI L. V-ClllL) l. IvAClrULlUll ctyciiii 


D669 


C9 


02 




CMP 


#$02 


return message 


D66B 


BO 


D2 




BCS 


$D63F 


error? 


D6 6D 


68 






PLA 






D66 E 


85 


7F 




STA 


S7F 


ri(3 tr Hi" i up niinhpr P 1 k 


D670 


68 






PLA 






UD / X 


aft 












UD / Z 


DC 
D J 


uu 




LiUft 


con y 

P U U f A 


cLLUL LUUc 


D674 


18 






CLC 




end—of ""©xscut ion fldQ 


nfi 7 R 

UD / D 


60 






RTS 






D676 


C9 


00 




CMP 


#S00 




D678 


F0 


18 




BEO 


$D692 




UD / ft 




nr 

UL 




BMI 


tncop 
?UOOO 




D67C 


AO 


01 




LDY 


#$01 




D67 E 


20 


93 


D6 


JSR 


SD693 


transmit data for head position 


D68 1 


38 






SEC 






D68 2 


E9 


01 




SBC 


#$01 




D684 


DO 


F6 




BNE 


$D67C 




D686 


F0 


OA 




BEO 


$D692 




n£ Q O 

Udo o 


ftU 


CP 

f r 




t nv 






UD oft 




y j 


D6 


JSR 


$D693 


transmit data for head position 


UDO U 


1 R 






CLC 






D6 8 E 


69 


01 




ADC 


# $01 




ud y u 


nn 
uu 


pa 
r D 




BNE 






UD y e. 


60 






RTS 






D693 


48 






PHA 






D694 


98 






TYA 






D695 


A4 


7F 




LDY 


$7F 


drive number 


uoy / 


QQ 

y y 


PP 


09 


STA 


fin*?pp y 




UD? ft 


nq 
jjr 


FE 


02 


CMP 


S02FE . Y 


wa i t for return message from 


UD3U 


po 

r u 


FB 




BEO 


$D69A 




D69F 


A9 


00 




LDA 


#$00 


disk controller 


D6A1 


99 


FE 


02 


STA 


$02FE,Y 




D6A4 


68 






PLA 






D6A5 


60 






RTS 






D6A6 


A5 


6A 




LDA 


$6A 


maximum number of repetitions 


D6A8 


29 


3F 




AND 


#$3F 




D6AA 


A8 






TAY 






D6AB 


AD 


6D 


02 


LDA 


$026D 


bit for LED 
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command 

transmit to disk controller 

and return message 

wait 

ok? 

yes 

decrement counter 
attempt again 



LED Off 



D6AE 


4D 


00 


1C 


EOR 


$1COO 




D6B1 


8D 


00 


1C 


STA 


S1C00 




D6B4 


BD 


5B 


02 


LDA 


$025B 


.X 


D6B7 


95 


00 




STA 


$00, X 




D6B9 


B5 


00 




LDA 


$00, X 




D6BB 


30 


FC 




BMI 


$D6B9 




D6BD 


C9 


02 




CMP 


#$02 




D6BF 


90 


03 




BCC 


$D6C4 




D6C1 


88 






DEY 






D6C2 


DO 


E7 




BNE 


$D6AB 




D6C4 


48 






PHA 






D6C5 


AD 


6D 


02 


LDA 


$026D 




D6C8 


0D 


00 


1C 


ORA 


$1C00 




D6CB 


8D 


00 


1C 


STA 


$1C00 




D6CE 


68 






PLA 






D6CF 


60 






RTS 






*****************************: 


D6D0 


20 


93 


DF 


JSR 


$DF93 




D6D3 


OA 






ASL 


A 




D6D4 


A8 






TAY 






D6D5 


A5 


80 




LDA 


$80 




D6D7 


99 


06 


00 


STA 


$0006, 




D6DA 


A5 


81 




LDA 


$81 




D6DC 


99 


07 


00 


STA 


$0007, 


-Y 


D6DF 


A5 


7F 




LDA 


$7F 




D6E1 


OA 






ASL 






D6E2 


AA 






TAX 






D6E3 


60 






RTS 






*****************************: 


D6E4 


A5 


83 




LDA 


$83 




D6E6 


48 






PHA 






D6E7 


A5 


82 




LDA 


$82 




D6E9 


48 






PHA 






D6EA 


A5 


81 




LDA 


$81 




D6EC 


48 






PHA 






D6ED 


A5 


80 




LDA 


$80 




D6EF 


48 






PHA 






D6F0 


A9 


11 




LDA 


#$11 




D6F2 


85 


83 




STA 


$83 




D6F4 


20 


3B 


DE 


JSR 


$DE3B 




D6F7 


AD 


4A 


02 


LDA 


$024A 




D6FA 


48 






PHA 






D6FB 


A4 


E2 




LDA 


$E2 




D6FD 


29 


01 




AND 


#$01 




D6FF 


85 


7F 




STA 


$7F 




D701 


A6 


F9 




LDX 


$F9 




D703 


5D 


5B 


02 


EOR 


$025B, 


X 


D706 


4A 






LSR 


A 




D707 


90 


OC 




BCC 


$D715 




D709 


A2 


01 




LDX 


#$01 




D70B 


8E 


92 


02 


STX 


$0292 




D70E 


20 


AC 


C5 


JSR 


$C5AC 




D711 


F0 


ID 




BEQ 


$D730 





transmit param to disk controller 
get buffer number 



track number 
transmit 
sector number 
transmit 
drive number 
times 2 



enter file in directory 
secondary address 

channel number 

sector number 

track number 
save 

secondary address 17 

get track and sector number 

file type 

save 

drive number 
set 

buffer number 



equal drive number? 

pointer in directory 

load dir and find first entry 

not found? 
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D713 DO 28 BNE $D73D found? 

D715 AD 91 02 LDA $0291 sector number in directory 

D718 F0 0C BEO $D726 equal zero 

D71A C5 81 CMP $81 equal sector number? 

D71C F0 IF BEQ $D73D yes 

D71E 85 81 STA $81 save sector number 

D720 20 60 D4 JSR SD460 read block 

D723 4C 3D D7 JMP $D73D 



D7 26 


A9 


01 




LDA 


#$01 


D728 


8D 


92 


02 


STA 


$0292 


D72B 


20 


17 


C6 


JSR 


$C617 


D72E 


DO 


0D 




BNE 


$D73D 


D730 


20 


8D 


D4 


JSR 


$D48D 


D733 


A5 


81 




LDA 


$81 


D735 


8D 


91 


02 


STA 


$0291 


D738 


A9 


02 




LDA 


#$02 


D73A 


8D 


92 


02 


STA 


$0292 


D73D 


AD 


92 


02 


LDA 


$0292 


D740 


20 


C8 


D4 


JSR 


$D4C8 


D743 


68 






PLA 




D744 


8D 


4A 


02 


STA 


$024A 


D747 


C9 


04 




CMP 


#$04 


D749 


DO 


02 




BNE 


$D74D 


D74B 


09 


80 




ORA 


#$80 


D74D 


20 


Fl 


CF 


JSR 


$CFF1 


D750 


68 






PLA 




D751 


8D 


80 


02 


STA 


$0280 


D754 


20 


Fl 


CF 


JSR 


$CFF1 


D757 


68 






PLA 




D758 


8D 


85 


02 


STA 


$0285 


D75B 


20 


Fl 


CF 


JSR 


$CFF1 


D75E 


20 


93 


DF 


JSR 


$DF93 


D761 


A8 






TAY 




D762 


AD 


7A 


02 


LDA 


$027A 


D765 


AA 






TAX 




D766 


A9 


10 




LDA 


#$10 


D768 


20 


6E 


C6 


JSR 


$C66E 


D76B 


AO 


10 




LDY 


#$10 


D76D 


A9 


00 




LDA 


#$00 


D76F 


91 


94 




STA 


($94) ,Y 


D771 


C8 






INY 




D77 2 


CO 


IB 




CPY 


#$1B 


D774 


90 


F9 




BCC 


$D76F 


D776 


AD 


4A 


02 


LDA 


$024A 


D779 


C9 


04 




CMP 


#$04 


D77B 


DO 


13 




BNE 


$D790 


D77D 


AO 


10 




LDY 


#$10 


D77F 


AD 


59 


02 


LDA 


$0259 


D782 


91 


94 




STA 


($94) ,Y 


D784 


C8 






INY 




D785 


AD 


5A 


02 


LDA 


$025A 


D788 


91 


94 




STA 


($94) ,Y 


D78A 


C8 






INY 





pointer to one 

find next entry in directory 
found? 

write directory block 
sector number 



pointer to 2 

set buffer pointer 

file type 
rel-f ile? 
no 

set bit 7 

and write in buffer 

following track 
in buffer 

following sector 

in buffer 

get buffer number 

pointer to drive number 

16, length of filename 
write filename in buffer 



fill with zeroes at pos 16 

position 27 already? 
no 

file type 
rel-f ile 
no 

track 



and sector 

the side-sectors in dir entry 
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record length 
in directory 
write block 

channel number 
secondary address 



file type 
drive number 



D78B 


AD 


58 


02 


LDA 


$0258 


D78E 


91 


94 




STA 


( $94 ) , Y 


D790 


20 


64 


D4 


JSR 


$D464 


D793 


68 






PLA 




D794 


85 


82 




STA 


$82 


D796 


AA 






TAX 




D797 


68 






PLA 




D798 


85 


83 




STA 


$83 


D79A 


AD 


91 


02 


LDA 


$0291 


D79D 


85 


D8 




STA 


$D8 


D79F 


9D 


60 


02 


STA 


$0260, X 


D7A2 


AD 


92 


02 


LDA 


$0292 


D7A5 


85 


DD 




STA 


$DD 


D7A7 


9D 


66 


02 


STA 


$0266, X 


D7AA 


AD 


4A 


02 


LDA 


$024A 


D7AD 


85 


E7 




STA 


$E7 


D7AF 


A5 


7F 




LDA 


$7F 


D7B1 


85 


E2 




STA 


$E2 


D7B3 


60 






RTS 




****************************** 


D7B4 


A5 


83 




LDA 


$83 


D7B6 


8D 


4C 


02 


STA 


$024C 


D7B9 


20 


B3 


C2 


JSR 


$C283 


D7BC 


8E 


2A 


02 


STX 


$022A 


D7BF 


AE 


00 


02 


LDX 


$0200 


D7C2 


AD 


4C 


02 


LDA 


$024C 


D7C5 


DO 


2C 




BNE 


$D7F3 


D7C7 


E0 


2A 




CPX 


#$2A 


D7C9 


DO 


28 




BNE 


$D7F3 


D7CB 


A5 


7E 




LDA 


S7E 


D7CD 


F0 


4D 




BEO 


$D81C 


D7CF 


85 


80 




STA 


$80 


D7D1 


AD 


6E 


02 


LDA 


$026E 


D7D4 


85 


7F 




STA 


$7F 


D7D6 


85 


E2 




STA 


$E2 


D7D8 


A9 


02 




LDA 


#$02 


D7DA 


85 


E7 




STA 


$E7 


D7DC 


AD 


6F 


02 


LDA 


$026F 


D7DF 


85 


81 




STA 


$81 


D7E1 


20 


00 


CI 


JSR 


$C100 


D7E4 


20 


46 


DC 


JSR 


$DC46 


D7E7 


A9 


04 




LDA 


#$04 


D7E9 


05 


7F 




ORA 


$7F 


D7EB 


A6 


82 




LDX 


$82 


D7ED 


99 


EC 


00 


STA 


$00EC,Y 


D7F0 


4C 


94 


CI 


JMP 


$C194 


D7F3 


E0 


24 




CPX 


#$24 


D7F5 


DO 


IE 




BNE 


$D815 


D7F7 


AD 


4C 


02 


LDA 


$024C 


D7FA 


DO 


03 




BNE 


$D7FF 


D7FC 


4C 


55 


DA 


JMP 


$DA55 



OPEN command, secondary adr <> 15 
secondary address 

get line length, erase flags 

first character from buffer 

secondary address 

not equal (LOAD)? 
!*■ 



last track number 

track number 
last drive number 
drive number 



set data type to program 
last sector number 
sector 
turn LED on 

allocate buffer, read block 

file type 

drive number 

channel number 

set flag 

done 

'$' 

no 

secondary address 
not equal to zero? 
OPEN $ 



D7FF 20 Dl CI JSR $C1D1 analyze line to end 
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D802 


AD 


85 


PE 


LDA 


$FE85 


D805 


85 


80 




STA 


$80 


D807 


A9 


00 




LDA 


#$00 


D809 


85 


81 




STA 


$81 


D80B 


20 


46 


DC 


JSR 


$DC46 


08 OE 


A5 


*7E" 
IV 






C 71? 


D810 


09 


02 




OR A 


# <s n o 


D8 12 


4C 


EB 


r\"7 


TMT3 




D8 15 


E0 


O "3 








D817 


DO 


12 




BNE 


C r\Q 13 

!? Uo Zn 


D819 


4C 


8 4 


CB 


TMD 




D81C 


A9 


02 




LDA 


ft <sno 

ff ?UZ 


D81E 


on 
oD 


yo 


no 


CT A 
bin 




D821 


A9 


uu 




t r\ a 


ft c nn 

ff 9UU 


D823 


8 5 


IV 




CT2V 


9 / r 


D825 


8D 


8E 


02 


STA 


?uzot* 


D828 


20 


42 


DO 


JSR 


$D042 


D8 2B 


20 


E5 


CI 


JSR 


$C1E5 


D82E 


DO 


04 




BNE 




D830 


A2 


00 




LDX 


# PUU 


D832 


F0 


oc 




BEQ 


c no vi n 


D834 


8A 






TXA 




D835 


F0 






BEQ 




D837 


aq 

Ay 


JU 




t ri a 




D8 39 


A f 


r"Q 

Lo 


r* i 

t-± 




Cpl PR 


D8 3C 


Q Q 
OO 










D83D 


F0 


Ul 




BEQ 


c no a n 


D8 3F 


88 






DEY 




D840 


8C 


7A 


2 


STY 


cn 0*7 a 

5>UZ / A 


D843 


A9 


8D 




LDA 


#$8D 


D845 


20 


68 


G2 


JSR 


$C268 


D848 


E8 






I NX 




D8 49 


8E 


78 


02 


STX 


9UZ / o 


D8 4C 


20 


12 


C3 


JSR 


COO 1 o 


D84 F 


on 

ZU 


<-A 




JSR 




Do D £. 


on 
zu 


Qrv 
y IJ 


C4 


TCD 




no c c 
JJo j D 


A O 

AZ 


nn 




LDX 


# c nn 


D857 


8E 


58 


02 


STX 


$0258 


Do DA 




o. o 
y / 


no 
uz 


STX 


o n OQT 

?uzy / 


D8 5D 


8 E 


A A 

4A 


n o 
UZ 


STX 


c n o a a 
$>U Z4A 




hb 






I NX 




D861 


EC 


77 


02 


CPX 


$0277 


D8 64 


BO 


10 




BCS 


$D876 


no c c 

DO D D 


Of) 


no 




ion 
JoK 


* nan q 


D869 


E8 






I NX 




D86A 


EC 


77 


02 


CPX 


$0277 


D86D 


B0 


07 




BCS 


$D876 


D86F 


CO 


04 




CPY 


#$04 


D871 


F0 


3E 




BEQ 


SD8B1 


D87 3 


20 


09 


DA 


JSR 


$DA09 


D876 


AE 


4C 


02 


LDX 


$024C 


D879 


86 


83 




STX 


$83 



18, directory track 
track 

sector 

allocate buffer, read block 
drive number 

continue as above 

'#' 

open direct access file 



file type program 

drive 

load BAM 
analyze line 
colon found? 



comma found? 
no 

30, 'syntax error' 



pointer to drive number 
shift CR 

analyze line to end 

comma counter 

get drive number 

check drive number 

find file entry in directory 

default values 

record length 

file type 

comma before equal sign? 
no 

get file type and control mode 

additional comma? 
no 



get file type and control method 
secondary address 
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D87B 


EO 


02 




CPX 


s n o 


D87D 


BO 


12 




BCS 


<: no Q 1 


D87F 


8E 


97 


02 


STX 




D882 


A9 


40 








D884 


8D 


F9 


02 


STA 


$02F9 


D887 


AD 


4A 


02 


LDA 


$024A 


D88A 


DO 


IB 




BNE 


$D8A7 


D88C 


A9 


02 




LDA 


#$02 


D88E 


8D 


4A 


02 


STA 


$024A 


D891 


AD 


4A 


02 


LDA 


$024A 


D894 


DO 


11 




BNE 


$D8A7 


D896 


A5 


E7 




LDA 


$E7 


D898 


29 


07 




AND 


#$07 


D89A 


8D 


4A 


02 


STA 


$024A 


D89D 


AD 


80 


02 


LDA 


$0280 


D8A0 


DO 


05 




BNE 


$D8A7 


D8A2 


A9 


01 




LDA 


#$01 


D8A4 


8D 


4A 


02 


STA 


$024A 


D8A7 


AD 


97 


02 


LDA 


$0297 


DBAA 


C9 


01 




CMP 




DBAC 


FO 


18 




BE0 


$D8C6 


D8AE 


4C 


40 


D9 


JMP 


$D940 


D8B1 


BC 


7A 


02 


LDY 


$027A,X 


D8B4 


B9 


00 


02 


LDA 


$0200 . Y 


D8B7 


8D 


5B 


02 


STA 


$025B 


D8BA 


AD 


80 


02 


LDA 


$0280 


D8BD 


DO 


B7 




BNE 


$D876 


D8BF 


A9 


01 




LDA 


#$01 


D8C1 


8D 


97 


02 


STA 


$0297 


D8C4 


DO 


BO 




BNE 


$D876 


D8C6 


A5 


E7 




LDA 


$E7 


D8C8 


29 


80 




AND 


#$80 


D8CA 


AA 






TAX 




D8CB 


DO 


14 




BNE 


$D8E1 


D8CD 


A9 


20 




LDA 


#$20 


D8CF 


24 


E7 




BIT 


$E7 


D8D1 


FO 


06 




BEQ 


$D8D9 


D8D3 


20 


B6 


C8 


JSR 


$C8B6 


D8D6 


4C 


E3 


D9 


JMP 


$D9E3 


D8D9 


A9 


80 


02 


LDA $0280 


D8DC 


DO 


03 




BNE 


$D8E1 


D8DE 


4C 


E3 


D9 


JMP 


$D9E3 


D8E1 


AD 


00 


02 


LDA 


$0200 


D8E4 


C9 


40 




CMP 


#$40 


D8E6 


FO 


OD 




BEQ 


$D8F5 


D8E8 


8A 






TXA 




D8E9 


DO 


05 




BNE 


$D8F0 


D8EB 


A9 


63 




LDA 


#$63 


D8ED 


4C 


C8 


CI 


JMP 


$C1C8 


D8F0 


A9 


33 




LDA 


#$33 


D8F2 


4C 


C8 


CI 


JMP 


$C1C8 



greater than 2? 
yes 

or 1 (LOAD or SAVE) 



file type 
not deleted 
PBG 

as file type 



get file type and command line 

track number 
not equal zero? 

file type sequential 

control method 

•W 

yes 



pointer behind second comma 
get value 
record length 
track number 

■ w i 

as control method 



file type 

isolate wildcard flag 

wildcard in name 

was file closed? 
yes 

byte in buffer and write block 



track number of the first block 
already existing 

first character from input buffer 

'@'? 

yes 

wildcard set? 
63, 'file exists' 
33, 'syntax error' 
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****************************** 



D8F5 


A5 


E7 




LDA $E7 


D8F7 


29 


07 




AND 


D8F9 


CD 


4A 


32 


L-Mr 9UZ4A 


D8FC 


DO 


67 






D8FE 


C9 


04 




LMr ff*U4 


D900 


F0 


bo 




DEiy ?U7Qj 


D902 


20 


DA 


DC 


to 13 Cnrna 


D905 


A5 


Q O 
HZ 




t na <i ft 9 


D907 


8D 


70 


rtO 

Uz 


ct& c n o*7 n 

bin 9 U Z / U 


D9 OA 


A9 


11 




t r\ A IC 1 1 


D90C 


on 
ZU 


EB 


DU 


"tcd ^nfiFP. 

JoK ? UUDD 


D9 11 


AD 


Q A 


U Z 


rnj <S ft O Q A 


D914 


20 


C8 


D4 


tod c njirfl 


D917 


AO 


00 




LDl ff*?UU 


D919 


Bl 


94 




lua i py ** j r i 


D91B 


09 


20 




OPA #?2U 


D91D 


91 


94 




b 1A \ ?y 4 I rX 


D91F 


AO 


1A 




LDl ff9Xn 


D921 


A5 


80 




LDA $80 


D923 


9 1 


94 




STA \ >y 4 ) ,i 


D925 


C8 






INY 


D926 


A5 


81 




LDA $81 


D9 28 


91 


94 




STA ($94), Y 


D92A 


AE 


70 


02 


r t\v c n o o n 
LDX $> U z / U 


D9 2D 


A5 


D8 




LJJA 9 DO 


D92F 


9D 


60 


no 
UZ 


bin ?UZDU/A 


D9 32 


A5 


DD 




LDA *? DU 


D934 


9D 


66 


no 
UZ 


Bin pUZDD f A 


D937 


20 


3B 


DE 




D9 3A 


o n 
ZU 




nA 

V*t 


"TOR ^ H4 fi A 


D93D 


4C 


EF 


uy 


TMD CnQPP 


D9 40 


AD 


q n 


f\0 
UZ 


t na <sfi 9ft fl 


D943 


DU 


n c; 




DINE* ?U?'in 


D945 


A9 


62 




LDA ffpbZ 


D947 


4L 




CI 


tmd <r*i r*H 

«JPir* ?t_±^-0 


D9 4A 


AD 


QO 

y / 


no 
u z 


LDA ? U Z 7 / 


D94D 


C9 


n o 




m id 


D9 4F 


F0 


no 




D E*rt CnQ^r 1 

□by puyji- 


D951 


A9 


20 




r r» a * c on 
LDA ffpzU 


D9 53 


O A 

z4 


b / 




til 1 ob / 


D955 


F0 


05 






D957 


A9 


60 




LDA #?oU 


D959 


4C 


C8 


CI 


Tun Jiepl C Q 




AC 


tj / 




JUL'in ? Ci / 


D95E 


29 


07 




AND #$07 


D960 


CD 


4A 


02 


CMP $024A 


D963 


F0 


05 




BE0 $D96A 


D965 


A9 


64 




LDA #$fi4 


D967 


4C 


C8 


CI 


JMP SC1C8 


D9 6A 


AO 


00 




LDY #$00 


D96C 


8C 


79 


02 


STY $0279 


D96F 


AE 


97 


02 


LDX $0297 


D972 


B0 


02 




CPX #$02 



open a file with overwriting 

file type 

isolate 

file type different? 
rel-file? 

64, 'file type mismatch' 



save channel number 

open read channel 

set buffer pointer for directory 

file type 

set bit 5, open file 



track 



and sector 

for open with at-sign 
channel number 

pointer to directory block 



get track and sector number 
write block 

prepare trk, sector, and drive # 

first track number 
file not erased? 

62, 'file not found' 
control mode 
■ M > 

yes, then no test of unclosed file 
bit 5 

test in file type 
not set, ok 

60, 'write file open' 

isolate file type 



64, 'file type mismatch' 



control mode 
'A' , append 
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D974 


DO 


1A 




BNE 


SD990 


D976 


C9 


04 




CMP 


#$04 


D978 


FO 


EB 




BEO 


$D965 


D97 A 


Bl 


94 




LDA 


( $94) , Y 


D97C 


29 


4F 




AND 


#$4F 


D97E 


91 


94 




STA 


($94) ,Y 


D980 


A5 


83 




LDA 


$83 


D982 


48 






PHA 




D983 


A9 


11 




LDA 


#$11 


D98 5 


85 


83 




STA 


$83 


D987 


20 


3B 


DE 


JSP. 


$DE3B 


D98A 


20 


64 


D4 


JSP. 


$D464 


D98D 


68 






PLA 




D98E 


85 


83 




STA 


$83 


noon 

ijy yu 


20 


AO 


D9 


JSP. 


$D9A0 


D993 


AD 


97 


02 


LDA 


$0297 


D996 


C9 


02 




CMP 


#$02 


uy y o 


DO 


55 




BNE 


$D9EF 


D99A 


20 


2A 


DA 


JSR 


$DA2A 


D99D 


4C 


94 


CI 


JMP 


SC194 


no an 
uy au 


AU 


13 




LDA 


#$13 


D9 A2 


Bl 


94 




LDA 


($94) ,Y 


D9 A4 


8 D 


59 


02 


STA 


$0259 




(HQ 






INY 




uy Acs 


fc>± 


Q A 

y 4 




LDA 


($94) ,Y 


D9 AA 


8D 


5A 


02 


STA 


$025A 




on 
to 






INY 




uy Ac* 


Bl 


94 




LDA 


($94) ,Y 


D9 BO 


AE 


58 


02 


LDX 


$0258 


D9 B3 


8D 


58 


02 


STA 


$0258 


D9B6 


8A 






TXA 




Uy d i 


FO 


UA 




BEO 


SD9C3 


D9 B9 


CD 


58 


02 


CMP 


#$0258 


net nf 
uy d\_- 


FO 






BEO 


$D9C3 




a Q 
Ay 






LDA 


#$50 


D9 CO 


20 


C8 


CI 


JSR 


$C1C8 


D9C3 


AE 


79 


02 


LDX 


$0279 


uy to 


BD 


on 


02 


LDA 


$0280 ,X 




O O 


Q n 




STA 


$80 


D9CB 


BD 


85 


02 


LDA 


$0285 ,X 


D9CE 


85 


81 




STA 


$81 


D9D0 


20 


46 


DC 


JSP 


$DC46 


D9D3 


A4 


82 




LDY 


$82 


D9D5 


AE 


79 


02 


LDX 


$0279 


D9 D8 


B5 


D8 




LDA 


$D8 ,X 


D9 DA 


99 


fin 


no 


STA 


9 U ZD U , Y 


D9DD 


B5 


DD 




LDA 


$DD,X 


D9DF 


99 


66 


02 


STA 


$0266, Y 


D9E2 


60 






P.TS 




D9E3 


A5 


E2 




LDA 


$E2 


D9E5 


29 


01 




AND 


#$01 


D9E7 


85 


7F 




STA 


$7F 


D9E9 


20 


DA 


DC 


JSP 


SDCDA 



Anatomy of the 1541 Disk Drive 

no 

rel-f ile? 
channel 17 

get track and sector number 
write block 

get channel # back 

control mode 

done 
track 

record length 
last record len 

50, 'record not present' 

track 
sector 

drive # 
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D9EC 


20 


E4 


D6 


JSR 


$D6E4 


D9EF 


A5 


83 




LDA 


?0 J 


D9F1 


C9 


02 




CMP 


n c n 1 
W9vZ 


D9F3 


BO 


11 




BCS 


$DA06 


D9F5 


20 


3E 


DE 


JSR 


$DE3E 


D9F8 


A5 


80 




LDA 


$80 


D9FA 


85 


7E 




STA 


$7E 


D9FC 


A5 


7F 




LDA 


$7F 


D9FE 


8D 


6E 


02 


STA 


5026E 


DA01 


A5 


81 




LDA 


$81 


DA03 


8D 


6F 


02 


STA 


$026F 


DA06 


4C 


99 


CI 


JMP 


$C199 


****************************** 


DA09 


BC 


7A 


02 


LDY 


$027A,X 


DAOC 


B9 


00 


02 


LDA 


$0200, Y 


DAOF 


AO 


04 




LDY 


#$04 


DA11 


88 






DEY 




DAI 2 


30 


08 




BMI 


SDA1C 


DAI 4 


D9 


B2 


FE 


CMP 


$FEB2,Y 


DA17 


DO 


F8 




BNE 


$DA11 


DAI 9 


8C 


97 


02 


STY 


$0297 


DA1C 


AO 


05 




LDY 


#$05 


DA1E 


88 






DEY 




DA1F 


30 


08 




BMI 


$DA29 


DA21 


D9 


B6 


FE 


CMP SFEB6, 


DA24 


DO 


F8 




BNE 


$DA1E 


DA26 


8C 


4A 


02 


STY 


$024A 


DA29 


60 






RTS 




****************************** 


DA2A 


20 


39 


CA 


JSR 


$CA39 


DA2D 


A9 


80 




LDA 


#$80 


DA2F 


20 


A6 


DD 


JSR 


$DDA6 


DA32 


FO 


F6 




BEO 


$DA 2A 


DA34 


20 


95 


DE 


JSR 


SDE95 


DA37 


A6 


81 




LDX 


$81 


DA39 


E8 






INX 




DA3A 


8A 






TXA 




DA3B 


DO 


05 




BNE 


$DA42 


DA3D 


20 


A3 


Dl 


JSR 


$D1A3 


DA40 


A9 


02 




LDA 


#$02 


DA42 


20 


C8 


D4 


JSR 


$D4C8 


DA45 


A6 


82 




LDX 


$82 


DA47 


A9 


01 




LDA 


#$01 


DA49 


95 


F2 




STA 


$F2,X 


DA4B 


A9 


80 




LDA 


#$80 


DA4D 


05 


82 




ORA 


$82 


DA4F 


A6 


83 




LDX 


$83 


DA51 


9D 


2B 


02 


STA 


S022B,X 


DA54 


60 






RTS 




***************************** 


DA55 


A9 


OC 




LDA 


#$0C 


DA57 


8D 


2A 


02 


STA 


$022A 



channel # 



check file type and control mode 
pointer in command line 
get characters from line 



control modes 'R', 'W, 'A', 1 M 1 

save 



file types 'D' ,'S 1 ,'P' ,'U" ,'L' 

save 



preparation for Append 

open channel to read, get byte 

last byte? 
no 

get track and sector number 
sector number 



not $FF? 

close buffer, write block 

buffer pointer to 2 
channel number 

set flag for WRITE 



channel number in table 



OPEN "$" 

command number 12 



178 



Anatomy of the 1541 Disk Drive 



DA5A 


A9 


00 




LDA 


#$00 


DA5C 


AE 


74 


02 


LDX 


$0274 


DA5F 


CA 






DEX 




DA60 


FO 


0B 




BEO 


$DA6D 


DA62 


CA 






DEX 




DAD J 


DO 


21 




BNE 


$DA86 


DA65 


AD 


01 


02 


LDA 


$0201 


r\ A £ Q 


on 

zu 


BD 


C3 


JSR 


$C3BD 


UftO D 


■3 n 
JU 






BMI 


SDA86 


lino u 




E2 




STA 


$E2 


DA6F 


EE 


77 


02 


INC 


$0277 


Un / Z 


EE 


T Q 

to 


n i 
U Z 


INC 


$0278 


nmc 

Urt / 3 


EE 


/A 


02 


INC 


$027A 


UA/o 


A9 


80 




LDA 


#$80 


DA7A 


85 


E7 




STA 


$E7 


DA7C 


A9 


2A 




LDA 


#$2A 


DA7E 




UU 


02 


STA 


50200 


nito l 
Una ± 


o u 


U 1 


no 


STA 


$0201 


Uno4 


nn 

1JU 


Lo 




BNE 


5DA9E 


L)/\0 O 


on 

ZU 


E5 


CI 


JSR 


$C1E5 




uu 


n t; 




BNE 


$DA90 




on 
zU 


DC 


C2 


JSR 


$C2DC 


n»Qp 


an 
AU 


AO. 




LDY 


#$03 


na o n 

LJnaU 


Q Q 
o o 






DEY 




uAy i 


Q O 






DEY 




DA9 2 




7 A 


02 


STY 


$027A 


DA9 5 


20 


00 


C2 


JSR 


$C200 


DA9 8 


*>n 


70 




JSR 


5Ciyo 


naon 


on 




C3 


JSR 


$C320 




on 
zu 


CA 


C3 


JSR 


$C3CA 


na a i 


on 
zu 


m 

D / 


C7 


JSR 


$C7B7 


naa^ 


on 
zu 


yu 


C4 


JSR 


SC49D 


na a "7 


on 
zu 


yti 


EC 


JSR 


$EC9E 


r\a & a 
ijaaa 


on 
zu 


■3*7 


Dl 


JSR 


$D137 


DAAD 


A6 


82 




LDX 


$82 


DAAF 


9D 


3E 


02 


STA 


$023E 


DAB2 


A4 


7F 




LDA 


S7F 


DAB 4 


8D 


8E 


02 


STA 


$028E 


DAB7 


09 


04 




ORA 


#$04 


DAB9 


95 


EC 




STA 


$EC,X 


DABB 


A9 


00 




LDA 


#$00 


DABD 


85 


A3 




STA 


$A3 


DABF 


60 






RTS 




**************************** 


DACO 


A9 


00 




LDA 


#$00 


DAC2 


8D 


F9 


02 


STA 


$02F9 


DAC5 


A5 


83 




LDA 


$83 


DAC7 


DO 


08 




BNE 


$DAD4 


DAC9 


A9 


00 




LDA 


#$00 


DACB 


8D 


54 


02 


STA 


$0254 


DACE 


20 


27 


D2 


JSR 


$D227 


DAD1 


4C 


DA 


D4 


JMP 


$D4DA 


DAD4 


C9 


OF 




CMP 


#$0F 
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second character 
get drive number 
not a plain number? 



set wildcard flag 
i * i 

as file name in command buffer 

absolute jump 

test input line to 1 : ' 

found? 

erase flags 



pointer to drive no. in command 

analyze line 

ascertain file type 

get drive number 

initialize drive if necessary 

prepare disk title 

load directory 

create and prepare directory 
get byte from buffer 
channel number 
byte in output register 
drive number 

save as last drive number 
PRG-flag 

set pointer back in input buffer 



CLOSE-routine 



secondary address 
not zero? 

secondary address 0, LOAD 
close channel 

close internal channels 17 & 18 
15 
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DAD6 


FO 


14 




BEO 


$DAEC 


DAD8 


20 


02 


DB 


JSR 


$DB02 


DADB 


A5 


83 




LDA 


$83 


DADD 


C9 


02 




CMP 


#$02 


DADF 


90 


FO 




BCC 


$DAD1 


DAE1 


AD 


6C 


02 


LDA 


$026C 


DAE4 


DO 


03 




BNE 


$DAE9 


DAE6 


4C 


94 


CI 


JMP 


$C194 


DAE9 


4C 


AD 


CI 


JMP 


$C1AD 


DAEC 


A9 


OE 




LDA 


#$0E 


DAEE 


85 


83 




STA 


$83 


DAFO 


20 


02 


DB 


JSR 


$DB02 


DAF3 


C6 


83 




DEC 


$83 


DAF5 


10 


F9 




BPL 


$DAF0 


DAF7 


AD 


6C 


02 


LDA 


$026C 


DAFA 


DO 


03 




BNE 


SDAFF 


DAFC 


4C 


94 


CI 


JMP 


$C194 


DAFF 


4C 


AD 


CI 


JMP 


SC1AD 


****************************** 


DB02 


A6 


83 




LDX 


$83 


DB04 


BD 


2B 


02 


LDA 


$022B,X 


DB07 


C9 


FF 




CMP 


#$FF 


DB09 


DO 


01 




BNE 


$DB0C 


DBOB 


60 






RTS 




DBOC 


29 


OF 




AND 


#$0F 


DBOE 


85 


82 




STA 


$82 


DB10 


20 


25 


Dl 


JSR 


$D125 


DB13 


C9 


07 




CMP 


#$07 


DB15 


FO 


OF 




BEO 


$DB26 


DB17 


C9 


04 




CMP 


#$04 


DB19 


FO 


11 




BEO 


$DB2C 


DB1B 


20 


07 


Dl 


JSR 


$D107 


DB1E 


BO 


09 




BCS 


$DB29 


DB20 


20 


62 


DB 


JSR 


$DB62 


DB23 


20 


A5 


DB 


JSR $DBA5 


DB26 


20 


F4 


EE 


JSR 


$ EEF4 


DB29 


4C 


27 


D2 


JMP 


$D227 


DB2C 


20 


Fl 


DD 


JSR 


$DDF1 


DB2F 


20 


IE 


CF 


JSR 


SCF1E 


DB32 


20 


CB 


El 


JSR 


$E1CB 


DB35 


A6 


D5 




LDX 


$D5 


DB37 


86 


73 




STX 


$73 


DB39 


E6 


73 




INC 


$73 


DB3B 


A9 


00 




LDA 


#$00 


DB3D 


85 


70 




STA 


$70 


DB3F 


85 


71 








DB41 


A5 


D6 




LDA 


$D6 


DB43 


38 






SEC 




DB44 


E9 


OE 




SBC 


#S0E 


CB46 


85 


72 




STA 


$72 


DB48 


20 


51 


DF 


JSR 


$DF51 



yes, close all channels 
close file 
secondary address 

smaller than 2? 



termination 



14 

secondary address 
close file 

next secondary address 



termination 



close file 
secondary address 
get channel number 
no channel associated? 

no, then done 

isolate channel number 

check data type 
direct access? 
yes 

rel-f ile? 
yes 

channel for writing open 

no file for writing? 

write last block 

write entry in dir and block 

write BAM 

close channel 

get buffer number, write block 
change buffer 
get last side-sector 
side-sector number 



minus 14 for pointer 
calculate block number of file 
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DB4B 


A6 


82 




LDX 


$82 


DB4D 


A5 


70 




LDA 


$70 


DB4F 


95 


B5 




STA 


$B5,X 


DB51 


A5 


71 




LDA 


$71 


DB53 


95 


BB 




STA 


$BB,X 


DB55 


A9 


40 




LDA 


#$40 


DB57 


20 


A6 


DD 


JSR 


$DDA6 


DB5A 


F0 


03 




BEQ 


$DB5F 


DB5C 


20 


A5 


DB 


JSR 


$DBA5 


DB5F 


AC 


27 


D2 


JMP 


$D227 


***************************, 


DB62 


A6 


82 




LDX 


$82 


DB64 


B5 


B5 




LDA 


$B5,X 


DB66 


15 


BB 




ORA 


$BB,X 


DB68 


DO 


OC 




BNE 


$DB76 


DB6A 


20 


E8 


D4 


JSR 


$D4E8 


DB6D 


C9 


02 




CMP 


#$02 


DB6F 


DO 


05 




BNE 


$DB76 


DB71 


A9 


OD 




LDA 


#$0D 


DB73 


20 


Fl 


CF 


JSR 


$CFF1 


DB76 


20 


E8 


D4 


JSR 


$D4E8 


nmo 
ut> i y 


C9 


02 




CMP 


#$02 


DB7B 


DO 


OF 




BNE 


$DB8C 


DB7D 


20 


IE 


CF 


JSR 


$CF1E 


DB80 


A6 


82 




LDX 


$82 


DB8 2 


B5 


B5 




LDA 


$B5,X 


DB84 


DO 


02 




BNE 


$DB88 


DB8 6 


D6 


BB 




DEC 


$BB,X 


DB88 


D6 


B5 




DEC 


$B5,X 


DB8A 


A9 


00 




LDA 


#$00 


DB8C 


38 






SEC 




DB8D 


E9 


01 




SBC 


#$01 


DB8F 


48 






PHA 




DB90 


A9 


00 




LDA 


#$00 


DB92 


20 


C8 


D4 


JSR 


$D4C8 


DB95 


20 


Fl 


CF 


JSR 


$CFF1 


DB98 


68 






PLA 




DB99 


20 


Fl 


CF 


JSR 


$CFF1 


DB9C 


20 


C7 


DO 


JSR 


$D0C7 


DB9F 


20 


99 


D5 


JSR 


SD599 


DBA2 


4C 


IE 


CF 


JMP 


$CF1E 


**************************** 


DBAS 


A6 


82 




LDX 


$82 


DBA7 


8E 


70 


02 


STX 


$0270 


DBAA 


A5 


83 




LDA 


$83 


DBAC 


48 






PHA 




DBAD 


BD 


60 


02 


LDA 


$0260,; 


DBBO 


85 


81 




STA 


$81 


DBB2 


BD 


66 


02 


LDA 


$0266,: 


DBB5 


8D 


94 


02 


STA 


$0294 


DBB8 


B5 


EC 




LDA 


$EC,X 


DBBA 


29 


01 




AND 


#$01 


DBBC 


85 


7F 




STA 


$7F 



channel number 

record number lo 

record number hi 

bit 6 set? 
no 

enter in dirctory 
close channel 

write last block 
channel number 
record number lo 
record number hi 
not zero? 

set buffer pointer 

not 2 
CR 

in buffer 

set buffer pointer 
now equal to 2? 
no 

change buffer 
channel number 
record number lo 

decrement block number hi 
and block number lo 



set pointer to end 



buffer pointer to zero 

write zero in buffer 

second byte = pointer to end 

write in buffer 

write block to disk 

and verify 

change buffer 

directory entry 
channel number 
save 

secondary address 
save 

sector number in directory 
set 

pointer in directory 



drive number 
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DBBG 


AD 


85 


FE 


LDA SFE85 


18, directory track 




DBC1 


85 


80 




STA S80 


set 




DBC3 


20 


93 


DF 


JSR $DF93 


increment buffer number 


DBC6 


48 






PHA 






DBC7 


85 


F9 




STA $F9 


read directory block 




DBC9 


20 


60 


D4 


JSR SD460 




DBCC 


AO 


00 




LDY #$00 






DBCE 


BD 


EO 


FE 


LDA $FEE0,X 


buffer address 




DBD1 


85 


87 




STA $87 






DBD3 


AD 


94 


02 


LDA $0294 


buffer pointer 




DBD6 


85 


86 




STA $86 






DBD8 


Bl 


86 




LDA (S86),Y 


file type 




DBDA 


29 


20 




AND #$20 


file closed? 




DBDC 


FO 


43 




BEQ $DC21 


yes 




DBDE 


20 


25 


Dl 


JSR $D125 


check file type 




DBE1 


C9 


04 




CMP #$04 


rel-f ile? 




DBB3 


FO 


44 




BEQ $DC29 


yes 




DBE5 


Bl 


86 




LDA ($86) ,Y 


erase bits 4,5, and 6 




DBE7 


29 


8F 




AND #$8F 




DBE9 


91 


86 




STA ($86) ,Y 


in file type 




DBEB 


C8 






I NY 






DBEC 


Bl 


86 




LDA ($86) ,Y 


track number 




DBEE 


85 


80 




STA $80 






DBFO 


84 


71 




STY $71 






DBF2 


AO 


IB 




LDY #$1B 


sector # of the file 




DBF4 


Bl 


86 




LDA ($86), Y 


for 


DBF6 


48 






PHA 


overwriting 




DBF7 


88 






DEY 






DBF8 


Bl 


86 




LDA ($86) ,Y 


track # for overwriting 


DBFA 


DO 


OA 




BNE $DC06 


set? 




DBFC 


85 


80 




STA $80 


set track number 




DBFE 


68 






PLA 






DBFF 


85 


81 




STA $81 


sector number 




DC01 


A9 


67 




LDA #$67 






DC03 


20 


45 


E6 


JSR $E645 


67, 'illegal track or 


sector 


DC06 


48 






PHA 






DC07 


A9 


00 




LDA #$00 






DC09 


91 


86 




STA ($86) ,Y 


erase track number 




DCOB 


C8 






INY 






DCOC 


91 


86 




STA ($86) ,Y 


and sector number of 


the 


DCOE 


68 






PLA 


substitute file 




DCOF 


A4 


71 




LDY $71 






DC11 


9 1 


86 










DC13 


C8 






INY 


set track & sec # of 


the new 


DC14 


Bl 


86 




LDA ($86), Y 






DC16 


85 


81 




STA $81 






DC18 


68 






PLA 






DC19 


91 


86 




STA ($86),Y 






DC1B 


20 


7D 


C8 


JSR $C87D 


erase all files 




DC1E 


4C 


29 


DC 


JMP $DC29 






DC21 


Bl 


86 




LDA ($86) ,Y 


get file type 




DC23 


29 


OF 




AND #$0F 


isolate bits 0-3 




DC25 


09 


80 




ORA #$80 


set bit 7 for closed 


file 


DC27 


91 


86 




STA ( $86) ,Y 







182 



Anatomy of the 1541 Disk Drive 



DC29 


AE 


70 


02 


LDX $0270 




DC2C 


AO 


1C 




LDY #$1C 




DC2E 


B5 


B5 




LDA $B5,X 




DC30 


91 


86 




STA (S86) ,Y 


DC32 


C8 






INY 




DC33 


B5 


BB 




LDA $BB , Y 




DC35 


91 


86 




STA ($86) 




DC37 


68 






PLA 




DC38 


AA 






TAX 




DC39 


A9 


90 




LDA #$90 




DC3B 


20 


90 


D5 


JSR $D590 




DC40 


68 






PLA 




DC41 


85 


83 




STA $83 




DC43 


4C 


07 


Dl 


JMP $D107 




*♦***********»«**************, 


DC46 


A9 


01 




LDA #$01 




DC48 


20 


E2 


Dl 


JSR $D1E2 




DC4B 


20 


B6 


DC 


JSR $DCB6 




DC4E 


AD 


4A 


02 


LDA $024A 




DC51 


48 






PHA 




DC52 


OA 






ASL A 




DC53 


05 


7F 




ORA $7F 




DC55 


95 


EC 




STA $EC,X 




DC57 


20 


9B 


DO 


JSR $D09B 




DC5A 


A6 


82 




LDX $82 




DC5C 


A5 


80 




LDA $80 




DC5E 


DO 


05 




BNE $DC65 




DC60 


A5 


81 




LDA $81 




DC62 


9D 


44 


02 


STA $0244, 


X 


DC65 


68 






PLA 




DC66 


C9 


04 




CMP #$04 




DC68 


DO 


3F 




BNE $DCA9 




DC6A 


A4 


83 




LDA $83 




DC6C 


B9 


2B 


02 


LDA $022B, 


Y 


DC6F 


09 


40 




ORA #$40 




DC71 


99 


2B 


02 


STA $022B, 


Y 


DC74 


AD 


58 


02 


LDA $0258 




DC77 


95 


C7 




STA $C7,X 




DC79 


20 


8E 


D2 


JSR SD28E 




DC7C 


10 


03 




BPL SDC81 




DC7E 


4C 


OF 


D2 


JMP $D20F 




DC81 


A6 


82 




LDX $82 




DC8 3 


95 


CD 




STA $CD,X 




DC85 


AC 


59 


02 


LDY $0259 




DC88 


84 


80 




STY $80 




DC8A 


AC 


5A 


02 


LDA $025A 




DC8D 


84 


81 




STY $81 




DC8F 


20 


D3 


D6 


JSR $D6D3 




DC92 


20 


73 


DE 


JSR SDE73 




DC95 


20 


99 


D5 


JSR $D599 




DC98' 


A6 


82 




LDX $82 




DC9A 


A9 


02 




LDA #$02 




DC9C 


95 


CI 




STA $C1,X 





channel number 

block number lo 
in directory entry 

and block number hi 
write 

buffer number 

code for 'writing' 
write block 

secondary address 

open channel for writing 

read block, layout buffer 

find channel and buffer for read 
set pointer 
file type 
save 

drive number 

read block in buffer 
channel number 
track 

following track? 
sector 

as end pointer 
file type 
rel-f ile? 
no 

secondary address 
channel number 

set flag for READ and WRITE 
record length 

find buffer for side-sector 
found? 

70, 'no channel' 
channel number 



track for side-sector 

sector for side-sector 

transmit parameters to disk cont. 

read block 

and verify 

channel number 

pointer for writing 
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nn 
uu 




LDA 


asnn 










D4 


JSR 


SD4C8 


buffer pointer to zero 


DC A3 


20 


53 


El 


JSR 


$E153 


find next record 


DCA6 


4C 


3E 


DE 


JMP 


SDE3E 


get track and sector number 


DCA9 


20 


56 


Dl 


JSR 


SD156 


get byte from buffer 


DCAC 


A6 


82 




LDX 


$82 


channel number 


DCAE 


9D 


3E 


02 


STA 


$023E,X 


byte in output register 


DCB1 


A9 


88 




LDA 


#$88 


set flag for READ 


DCB3 


95 


F2 




STA 


$F2,X 




DCB5 


60 






RTS 






****************************** 


reset pointer 


DCB6 


A6 


82 




LDX 


$82 


channel number 


DCB8 


B5 


A7 




LDA 


$A7,X 


buffer number 


DCBA 


OA 






ASL 


A 


times 2 


DCBB 


A8 






TAY 






DCBC 


A9 


02 




LDA 


#$02 




DCBE 


99 


99 


00 


STA 


$0099, Y 


buffer pointer lo 


DCC1 


B5 


AE 




LDA 


$AE,X 




DCC3 


09 


80 




ORA 


#$80 


set bit 7 


DCC5 


95 


AE 




STA 


$AE,X 




DCC7 


OA 






ASL 


A 




DCC8 


A8 






TAY 






DCC9 


A9 


02 




LDA 


#$02 




DCCB 


99 


99 


00 


STA 


$0099, Y 




DCCE 


A9 


00 




LDA 


#$00 




DC DO 


95 


B5 




STA 


$B5,X 


block number lo 


DCD2 


95 


BB 




STA 


$BB,X 


block number hi 


DCD4 


A9 


00 




LDA 


#$00 




DCD6 


9D 


44 


02 


STA 


$0244, X 


end pointer 


DCD9 


60 






RTS 






****************************** 


construct a new block 


DC DA 


20 


A9 


Fl 


JSR 


$F1A9 


find free sector in BAM 


DCDD 


A9 


01 




LDA 


#$01 




DCDF 


20 


DF 


Dl 


JSR 


$D1DF 


open channel 


DCE2 


20 


DO 


D6 


JSR 


SD6D0 


transmit param to disk controller 


DC E5 


20 


B6 


DC 


JSR 


$DCB6 


reset pointer 


DCE8 


A6 


82 




LDX 


$82 


channel number 


DCEA 


AD 


4A 


02 


LDA 


S024A 


file type 


DCED 


48 






PHA 






DCEE 


OA 






ASL 


A 




DCEF 


05 


7F 




ORA 


$7F 


drive number 


DCF1 


95 


EC 




STA 


$EC,X 


cavp f 1 an 

S Q v ^ OO i. J- o y 


DCF3 


68 






PLA 






DCF4 


C9 


04 




CMP 


#$04 


rel-file? 


DCF6 


FO 


05 




BEp 


$DCFD 


yes 


DCF8 


A9 


01 




LDA 


#$01 




DC FA 


95 


F2 




STA 


$F2,X 


set WRITE flag 


DCFC 


60 






RTS 






DCFD 


A4 


83 




LDY 


$83 


secondary address 


DCFF 


B9 


2B 


02 


LDA 


$022B,Y 


channel number in table 


DD02 


29 


3F 




AND 


#$3F 


erase the top two bits 
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DD04 


09 


40 




ORA 


#$40 


se>t" hit - F» 


DD06 


99 


2B 


02 


STA 


$022B, Y 


READ and WRITE flag 


DD09 


AD 


58 


02 


LDA 


$0258 


rpnnrii 1 pnnfh 

L CV^Viu XOU^ tail 


DDOC 


95 


C7 




STA 


$C7 i X 


in t* nhl p 


DDOE 


20 


8E 


D2 


JSR 


SD28E 


f i nrf hnFf^r* 


DD11 


10 


03 




BPL 


$DD16 


found? 


DDI 3 


4C 


OF 


D2 


J MP 


$D20F 


70. 'no rhannpl ' 


DDI 6 


A6 


82 




LDX 


$82 


channel number 


DDI 8 


95 


CD 




STA 


$CD r X 


buffer number for side— sector 


DD1A 


20 


CI 


DE 


JSR 


$DEC1 


erase buffer 


DD1D 


20 


IE 


Fl 


JSR 


$F11E 


f i nd f rpp blnnk in RAM 


DD20 


A5 


80 




LDA 


$80 


track 


DD22 


8D 


59 


02 


STA 


$0259 


for* <z i d<*— Q^r"f" nr 


DD25 


A5 


81 




LDA 


$81 




DD27 


8D 


5A 


02 


STA 


$025A 


for side— sector 


DD2A 


A6 


82 




LDX 


$82 


channel number 


DD2C 


B5 


CD 




LDA 


$CD,X 


buffer number 


DD2E 


20 


D3 


D6 


JSR 


$D6D3 


transmit pa ram to disk controller 


DD31 


A9 


00 




LDA 


#$00 


DD33 


20 


E9 


DE 


JSR 


$DEE9 


bi ] f f p nni n("Pr +*r» toy - r\ 


DD36 


A9 


00 




LDA 


#$00 


DD38 


20 


8D 


DD 


JSR 


$DD8D 




DD3B 


A9 


11 




LDA 


#$11 


17 


DD3D 


20 


8D 


DD 


JSR 


SDD8D 


ae onri v\f\ i nf ai* in hi if for 


DD40 


A9 


00 




LDA 


#$00 




DD42 


20 


8D 


DD 


JSR 


$DD8D 


as side— sector number in bi* f f er 


DD45 


AD 


58 


02 


LDA 


$0258 


record leng th 


DD48 


20 


8D 


DD 


JSR 


$DD8D 


in buffer 


DD4B 


A5 


80 




LDA 


$80 


track number of this block 


DD4D 


20 


8D 


DD 


JSR 


$DD8D 


in buffer 


DD50 


A5 


81 




LDA 


$81 


sector number 


DD52 


20 


8D 


DD 


JSR 


$DD8D 


in buffer 


DD55 


A9 


10 




LDA 


#$10 


16 


DD57 


20 


E9 


DE 


JSR 


$DEE9 


buffer pointer to 16 


DD5A 


20 


3E 


DE 


JSR 


$DE3E 


get track and sector number 


DD5D 


A5 


80 




LDA 


$80 


track # of the first data block 


DD5F 


20 


8D 


DD 


JSR 


SDD8D 


in buffer 


DD6 2 


A5 


81 




LDA 


$81 


sector # of the first data block 


DD64 


20 


8D 


DD 


JSR 


SDD8D 


in buffer 


DD67 


20 


6C 


DE 


JSR 


$DE6C 


write block to disk 


DD6A 


20 


99 


D5 


JSR 


$D599 


and check 


DD6D 


A9 


02 




LDA 


#$02 




DD6F 


20 


C8 


D4 


JSR 


$D4C8 


buffer pointer to 2 


DD72 


A6 


82 




LDX 


$82 


channel number 


DD74 


38 






SEC 






DD75 


A9 


00 




LDA 


#$00 




DD77 


F5 


C7 




SBC 


$C7,X 


record length 


DD79 


95 


CI 




STA 


$C1,X 


pointer for writing 


DD7B 


20 


E2 


E2 


JSR 


$E2E2 


erase buffer 


DD7E 


20 


19 


DE 


JSR 


$DE19 


write link bytes in buffer 


DD81 


20 


5E 


DE 


JSR 


$DE5E 


write block to disk 


DD84 


20 


99 


D5 


JSR 


$D599 


and check 


DD87 


20 


F4 


EE 


JSR 


$EEF4 


write BAM 


DD8A 


4C 


98 


DC 


JMP 


$DC98 


and done 
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****************************** 

DD8D 48 PHA 

DD8E A6 82 LDX $82 

DD90 B5 CD LDA $CD,X 

DD92 4C FD CF JMP SCFFD 



write byte in side-sector block 

save byte 

channel number 

buffer # of the side-sector 

write byte in buffer 



****************************** manipulate flags 



DD9 5 


90 


06 


BCC 


$DD9D 




DD97 


A6 


82 


LDX 


$82 


channel number 


DD99 


15 


EC 


OFA 


$EC,X 


set flag 


DD9B 


DO 


06 


BNE 


$DDA3 




DD9D 


A6 


82 


LDX 


$82 


channel number 


DD9F 


49 


FF 


EOR 


#$FF 




DDA1 


35 


EC 


AND 


$EC,X 


erase flag 


DDA3 


95 


EC 


STA 


$EC,X 




DDA5 


60 




RTS 






DDA6 


A6 


82 


LDX 


$82 


channel number 


DDA8 


35 


EC 


AND 


$EC,X 


test flag 


DDAA 


60 




RTS 







****************************** check command code for writing 



DDAB 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


DDAE 


AA 






TAX 






DDAF 


BD 


5B 


02 


LDA 


$025B,X 




DDB2 


29 


F0 




AND 


#$F0 


isolate command code 


DDB4 


C9 


90 




CMP 


#$90 


code for writing? 


DDB6 


60 






RTS 







****************************** 



DDB7 


A2 


00 


LDX 


#$00 




DDB9 


86 


71 


STX 


$71 


counter for secondary address 


DDBB 


BD 


2B 02 


LDA 


$022B,X 


get channel number from table 


DDBE 


C9 


FF 


CMP 


#$FF 




DDC0 


DO 


08 


BNE 


$ DDCA 


file open? 


DDC2 


A6 


71 


LDX 


$71 




DDC4 


E8 




INX 




increment counter 


DDC5 


E0 


10 


CPX 


#$10 


smaller than 16? 


DDC7 


90 


F0 


BCC 


$ DDB9 




DDC9 


60 




RTS 







DDCA 


86 


71 




STX 


$71 






DDCC 


29 


3F 




AND 


#$3F 


isolate channel number 


DDCE 


A8 






TAX 








DDCF 


B9 


EC 


00 


LDA 


$00EC,Y 






DDD2 


29 


01 




AND 


#$01 


isolate drive 


number 


DDD4 


85 


70 




STA 


$70 






DDD6 


AE 


53 


02 


LDX 


$0253 






DDD9 


B5 


E2 




LDA 


$E2,X 






DDDB 


29 


01 




AND 


#$01 


isolate drive 


number 


DDDD 


C5 


70 




CMP 


$70 


same drive? 




DDDF 


DO 


El 




BNE 


$ DDC2 


no 




DDE1 


B9 


60 


02 


LDA 


$0260, Y 


sector number 


in directory 


DDE4 


D5 


D8 




CMP 


$D8 ,X 


same as file? 




DDE6 


DO 


DA 




BNE 


SDDC2 


no 
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DDE8 


B9 


66 02 


LDA 


$0266, Y 


DDEB 


D5 


DD 


CMP 


$DD,X 


DDED 


DO 


D3 


BNE 


$DDC2 


DDEF 


18 




CLC 




DDFO 


60 




RTS 





****************************** 



DDF1 


20 


9E 


DF 


JSR 


$DF9E 


DDF4 


50 


06 




BVC 


$DDFC 


DDF6 


20 


5E 


DE 


JSR 


$DE5E 


DDF9 


20 


99 


D5 


JSR 


$D599 


DDFC 


60 






RTS 




*****************************: 


DDFD 


20 


2B 


DE 


JSR 


$DE2B 


DE00 


A5 


80 




LDA 


$80 


DE02 


91 


94 




STA 


($94) ,Y 


DEO 4 


C8 






INY 




DEO 5 


A5 


81 




LDA 


$81 


DE07 


91 


94 




STA 


($94) ,Y 


DE09 


4C 


05 


El 


JMP 


$E105 


*****************************? 


DEOC 


20 


2B 


DE 


JSR 


$ DE2B 


DEOF 


Bl 


94 




LDA 


($94) ,Y 


DE11 


85 


80 




STA 


$80 


DE13 


C8 






INY 




DEI 4 


Bl 


94 




LDA 


($94) ,Y 


DE16 


85 


81 




STA 


$81 


DE18 


RTS 








*****************************: 


DE19 


20 


2B 


DE 


JSR 


SDE2B 


DE1C 


A9 


00 




LDA 


#$00 


DE1E 


91 


94 




STA 


($94) ,Y 


DE20 


C8 






INY 




DE21 


A6 


82 




LDX 


$82 


DE23 


B5 


CI 




LDA $C1,X 


DE25 


AA 






TAX 




DE26 


CA 






DEX 




DE27 


8A 






TXA 




DE28 


91 


94 




STA 


($94) ,Y 


DE2A 


60 






RTS 




*****************************! 


DE2B 


20 


93 


DF 


JSR 


$DF93 


DE2E 


OA 






ASL 


A 


DE2F 


AA 






TAX 




DE30 


B5 


9A 




LDA 


$9A,X 


DE32 


85 


95 




STA 


$95 


DE34 


A9 


00 




LDA 


#$00 


DE36 


85 


94 




STA 


$94 


DE38 


AO 


00 




LDY 


#$00 


DE3A 


60 






RTS 





pointer same? 
no 



write a block of a rel-file 
get buffer number 
no rel-file? 
write block 
and verify 



write bytes for following track 
set buffer pointer 
track number 
in buffer 

sector number 
in buffer 
set rel-flag 

get following track and sector # 
set buffer pointer 
following track number 



and get sector number 



following track for last block 

set buffer pointer 

zero 

as track number 

channel number 
pointer in block 

minus 1 

as pointer in block 



buffer pointer to zero 
get buffer number 
tiroes 2 

buffer pointer hi 



buffer pointer lo 
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****************************** 


get track and sector 


DE3B 


20 


EB 


DO 


JSR 


$D0EB 


get channel number 


DE3E 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


DE41 


85 


F9 




STA 


$F9 


save 


DE43 


OA 






ASL 


A 


times £. 


DE44 


A8 






TAY 






DE45 


B9 


06 


00 


LDA 


$0006, Y 


get track 


DE48 


85 


80 




STA 


$80 




DE4A 


B9 


07 


00 


LDA 


$0007, Y 


and sector # from disk control 


DE4D 


85 


81 




STA 


$81 




DE4F 


60 






RTS 






****************************** 




DE50 


A9 


90 




LDA 


#$90 


command code for writing 


DE52 


8D 


4D 


02 


STA 


S024D 




DE55 


DO 


28 




BNE 


$DE7F 




DE57 


A9 


80 




LDA 


#$80 


command code for reading 


DE59 


8D 


4D 


02 


STA 


$024D 




DE5C 


DO 


21 




BNE 


$ DE7 F 




DE5E 


A9 


90 




LDA 


#$90 


command code for writing 


DE60 


8D 


4D 


02 


STA 


$024D 




DE6 3 


DO 


26 




BNE 


$DE8B 




DE65 


A9 


80 




LDA 


#$80 


command code for reading 


DE67 


8D 


4D 


02 


STA 


$024D 




DE6A 


DO 


IF 




BNE 


SDE8B 




DE6C 


A9 


90 




LDA 


#$90 


command code for writing 


DE6E 


8D 


4D 


02 


STA 


$024D 




DE71 


DO 


02 




BNE 


$DE75 




DE73 


A9 


80 




LDA 


#$80 


command code for reading 


DE75 


8D 


4D 


02 


STA 


$024D 




DE78 


A6 


82 




LDX 


$82 


channel number 


DE7A 


B5 


CD 




LDA 


$CD,X 


side-sector buffer number 


DE7C 


AA 






TAX 






DE7D 


10 


13 




BPL 


$DE92 


buffer associated? 


DE7F 


20 


DO 


D6 


JSR 


$D6D0 


generate header for disk cont. 


DE8 2 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


DE85 


AA 






TAX 






DE86 


A5 


7F 




LDA 


$7F 


drive number 


DE88 


9D 


SB 


02 


STA 


$025B,X 




DE8B 


20 


15 


El 


JSR 


$E115 


buffer number 


DE8E 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


DE91 


AA 






TAX 






DE92 


4C 


06 


D5 


JMP 


$D506 


write block 



****************************** get following track & sector from 



DE95 


A9 


00 




LDA 


#$00 


buffer 


DE97 


20 


C8 


D4 


JSR 


$D4C8 


buffer pointer 


DE9A 


20 


37 


Dl 


JSR 


$D137 


get byte 


DE9D 


85 


80 




STA 


$80 


save as track 


DE9F 


20 


37 


Dl 


JSR 


$D137 


get byte 


DEA2 


85 


81 




STA 


$81 


as sector 
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DEA4 


60 






RTS 


****************************** 


DEA5 


48 






PHA 


DEA6 


A9 


00 




LDA #$00 


DEA8 


85 


6F 




STA $6F 


DEAA 


85 


71 




STA $71 


DEAC 


B9 


EO 


FE 


LDA $FEE0,Y 


DEAF 


85 


70 




STA $70 


DFB1 


BD 


EO 


FE 


LDA $FEE0,X 


DEB4 


85 


72 




STA $72 


DEB6 


68 






PLA 


DEB7 


A8 






TAY 


DEB8 


88 






DEY 


DEB9 


Bl 


6F 




LDA ($6F),Y 


DEBB 


91 


71 




STA ($71), Y 


DEBD 


88 






DEY 


DEBE 


10 


F9 




BPL $DEB9 


DECO 


60 






RTS 


****************************** 


DEC1 


A8 






TAY 


DEC2 


B9 


EO 


FE 


LDA $FEE0,Y 


DEC5 


85 


70 




STA $70 


DEC7 


A9 


00 




LDA #$00 


DEC9 


85 


6F 




STA $6F 


DECB 


A8 






TAY 


DECC 


91 


6F 




STA ($6F) ,Y 


DECE 


C8 






INY 


DECF 


DO 


FB 




BNE SDECC 


DED1 


60 






RTS 


****************************** 


DED2 


A9 


00 




LDA #$00 


DED4 


20 


DC 


DE 


JSR $DEDC 


DED7 


AO 


02 




LDY #$02 


DED9 


Bl 


94 




LDA ($94) ,Y 


DEDB 


60 






RTS 


****************************** 


DEDC 


85 


94 




STA $94 


DEDE 


A6 


82 




LDX $82 


DEEO 


B5 


CD 




LDA $CD,X 


DEE 2 


AA 






TAX 


DEE3 


BD 


EO 


FE 


LDA $FEE0,X 


DEE6 


85 


95 




STA $95 


DEE8 


60 






RTS 


****************************** 


DEE9 


48 






PHA 


DEEA 


20 


DC 


DE 


JSR $DEDC 


DEED 


48 






PHA 


DEEE 


8A 






TXA 


DEEF 


OA 






ASL A 


DEFO 


AA 






TAX 



copy buffer contents 



buffer address Y, hi 
buffer address X, hi 



copy contents of buffer Y 
to buffer X 



erase buffer Y 
buffer number 
get hi-address 

lo-address 



erase buffer 



get side-sector number 
buffer pointer to zero 
byte 2 contains the side-sector # 



set buffer ptr to side-sector 
pointer lo 
channel number 
buffer number 

buffer address hi 
set 



buffer pointer for side-sector 
pointer in side-sector 
set buffer pointer 

buffer number 
times 2 
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DEF1 


68 




PLA 




buffer pointer - hi 


DEF2 


95 


9A 


STA 


$9A,X 




DEF4 


68 




PLA 




buffer pointer lo 


DEF5 


95 


99 


STA 


$99, X 




DEF7 


60 




RTS 






****************************** 


get side— sector and buffer ptr 


DEF8 


20 


66 DF 


JSR 


$DF66 


is side— sector in buffer 


DEFB 


30 


0E 


BMI 


$DF0B 


no 


DEFD 


50 


13 


BVC 


$DF12 


OK 


DEFF 


A6 


82 


LDX 


$82 


channel number 


DF01 


B5 


CD 


LDA 


$CD,X 


buffer number 


DF03 


20 


IB DF 


JSR 


$DF1B 


read side—sector 


DF06 


20 


66 DF 


JSR 


SDF66 


and check if in buffer 


DF09 


10 


07 


BPL 


$DF12 


yes? 


DFOB 


20 


CB El 


JSR 


$E1CB 


get last side-sector 


DFOE 


2C 


CE FE 


BIT 


SFECE 


set V bit 


DF11 


60 




RTS 






DF12 


A5 


D6 


LDA 


$D6 


side-sector end pointer 


DF14 


20 


E9 DE 


JSR 


$DEE9 


set pointer in side-sector 


DF17 


2C 


CD DE 


BIT 


$FECD 


erase V bit 


DF1A 


60 




RTS 






****************************** 


IcaU 5iac"ScCtut 


DF1B 


85 


F9 


STA 


$F9 


buffer number 


DF1D 


A9 


80 


LDA 


#$80 


command code for reading 


DF1F 


DO 


04 


BNE 


$DF25 




****************************** 


wr i te side- sector 


DF21 


85 


F9 


STA 


$F9 


buffer number 


DF23 


A9 


90 


LDA 


#$90 


command code for writing 


DF25 


48 




PHA 






DF26 


B5 


EC 


LDA 


$EC,X 




DF28 


29 


01 


AND 


#$01 


i so late drive numbe r 


DF2A 


85 


7F 


STA 


$7F 




DF2C 


,68 




PLA 






DF2D 


05 


7F 


ORA 


$7F 


command code plus dr i ve number 


DF2F 


8D 


4D 02 


STA 


$024D 


save 


DF32 


Bl 


94 


LDA 


($94) ,Y 


track number 


DF34 


85 


80 


STA 


$80 




DF36 


C8 




INY 






DF37 


Bl 


94 


LDA 


($94) ,X 


sector number 


DF39 


85 


81 


STA 


$81 




DF3B 


A5 


F9 


LDA 


$F9 


buffer number 


DF3D 


20 


D3 D6 


JSR 


$D6D3 


transmit param to disk controller 


DF40 


A6 


F9 


LDX 


$F9 


buffer number 


DF42 


4C 


93 D5 


JMP 


$D593 


hranmi' t* rnwi Jti HiqIc rnnf vol 1 or 


****************************** 


set buffer pointer in side-sector 


DF45 


A6 


82 


LDX 


$82 


channel number 


DF47 


B5 


CD 


LDA 


$CD,X 


buffer number 


DF49 


4C 


EB D4 


JMP 


$D4EB 


set buffer pointer 


****************************** 


calculate block # of a rel-file 


DF4C 


A9 


78 


LDA 


#$78 


120 block ptrs per side-sector 
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DF4E 


20 


5C 


DF 


JSR 




DF51 


CA 






DEX 




DF52 


10 


F8 




BPL 


$DF4C 


DF54 


A5 


72 




LDA 


£79 


DF56 


4A 






LSF 


A 


DF57 


20 


5C 


DF 


JSR 


$DF5C 


DF5A 


A5 


73 




LDA 


$73 


DF5C 


18 






CLC 




DF5D 


65 


70 




ADC 


$70 


DF5F 


85 


70 




STA 


$70 


DF61 


90 


02 




BCC 


$DF65 


DF63 


E6 


71 




INC 


$71 


DF65 


60 






RTS 




*****************************' 


DF66 


20 


D2 


DE 


JSR 


$DED2 


DF69 


C5 


D5 




CMP 


$D5 


DF6B 


DO 


OE 




BNE 


$DF7B 


DF6D 


A4 


D6 




LDY 


$D6 


DF6F 


Bl 


94 




LDA 


($94) ,Y 


DF71 


F0 


04 




BEQ 


$DF77 


DF73 


2C 


CD 


FE 


BIT 


$FECD 


DF76 


60 






RTS 




DF77 


2C 


CF 


FE 


BIT 


SFECF 


DF7A 


60 






RTS 




DF7B 


A5 


D5 




LDA 


$D5 


DF7D 


C9 


06 




CMP 


#$06 


DF7F 


B0 


OA 




BCS 


$DF8B 


DF81 


OA 






ASL 


A 


DF82 


A8 






. TAY 




DF83 


A9 


04 




LDA 


#$04 


DF85 


85 


94 




STA 


$94 


DF87 


Bl 


94 




LDA 


($94), Y 


DF89 


DO 


04 




BNE 


$DF8F 


DF8B 


2C 


DO 


FE 


BIT 


$FEDO 


DF8E 


60 






RTS 




DF8F 


2C 


CE 


FE 


BIT 


$FECE 


DF92 


60 






RTS 




*****************************! 


DF93 


A6 


82 




LDX 


$82 


DF95 


B5 


A7 




LDA 


$A7,X 


DF97 


10 


02 




BPL 


$DF9B 


DF99 


B5 


AE 




LDA 


$AE,X 


DF9B 


29 


BF 




AND 


#$BF 


DF9D 


60 






RTS 




DF9E 


A6 


82 




LDX 


$82 


DFAO 


8E 


57 


02 


STX 


$0257 


DFA3 


B5 


A7 




LDA 


$A7,X 


DFA5 


10 


09 




BPL 


SDFBO 


DFA7 


8A 






TXA 




DFA8 


18 






CLC 





add to $70/$71 

side-sector number 

next side-sector? 

pointer value in last block 

divided by 2 

add to previous sum 

number of the side-sector block 



add 



verify side-sector in buffer 

get side-sector number 

= number of necessary block? 

no 

pointer in side-sector 
track number 

erase bits 

set N-bit 



side-sector number 
6 or greater? 
yes 



track number 
set N and V bits 



set V bit 



get buffer number 
channel number 
buffer number 

buffer number from second table 
erase V bit 



channel number 
save 

get buffer number 
buffer allocated 
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DFA9 


oy 


fi "7 

u / 




ADC 


Jl6ft7 


increment number by 7 


DFAB 


OU 


D / 


Uz 


STA 


? U / 


and save 


DFAE 


DC 

D3 


AE 




LDA 


$AE r X 


bu f f er number f roni t able 2 


DFBO 


Q t; 


l u 




O in 


<57fl 




Ur D£. 


00 


lr 




a Kin 

AND 


ff? it 


ciaac die (liy IlcSt J UlLo 


DFB4 


24 


70 




BIT 


$70 




DFB6 


60 






RTS 






DFB7 


AD 


82 




LDX 


$82 


phflnnpl nunihpr 




DC 
DJ 


A7 




LDA 


vn / f A 


hi 1 f F at* tii !mhp v 

kJ Li -L 1.CL [I UlMUu L 


DFBB 


"?ft 


02 




BMI 


$DFBF 


Hllf "Ff*T" f rpp*3 


DFBD 


B5 


AE 




LDA 


$ AE ,X 




DFBF 


C9 


FF 




CMP 


trvrr 


free ? 




60 






RTS 






DFC2 


A6 


82 




LDX 


$82 




DFC4 


09 


80 




ORA 


#$80 




DFC6 


B4 


A7 




LDY 


$A7,X 




DFC8 


10 


03 




BPL 


$DFCD 




DFCA 


95 


A7 




STA 


$A7,X 




DFCC 


60 






RTS 






DFCD 


95 


AE 




STA 


$AE,X 




DFCF 


60 






RTS 






****************************** 




DFDO 


A9 


20 




LDA 


#$20 




DFD2 


20 


9D 


DD 


JSR 


$DD9D 


erase bit 5 


DFD5 


A9 


80 




LDA 


#$80 




DFD7 


20 


A6 


DD 


JSR 


$ DDA6 


t-pqt' hit" 7 


DFDA 


DO 


41 




BNE 


$E01D 


set? 


DFDC 


A6 


82 




LDX 


$82 


prtannpl nnmhpr 

%*11C11111BU» 11 U1I1W w i- 


DFDE 


F6 


B5 




INC 


$B5,X 


i nprpmpnh rprnrri nnmhpr 

lllLn L J- w V* Vp/L \J 1 1 L1JUL LJ ^3 I_ 


DFEO 


DO 


02 




BNE 


$DFE4 




DFE2 


F6 


BB 




INC 


$BB,X 


lclUlU UUltlDcI. 11 X 


DFE4 


A6 


82 




LDX 


$82 


nhanno 1 rti ityiWo >" 


DFE6 


B5 


CI 




LDA 


$C1,X 


ui-i i-p nrti it t" & v" 

WL 1 LC JJUlil LCL 


DFE8 


FO 


2E 




BEO 


$E018 


zero? 


DFEA 


20 


E8 


D4 


JSR 


$D4E8 


OvL U LI J_ X. ~ I. UUX1I LCL 


DFED 


A6 


82 




LDX 


$82 


channel number 


DFEF 


D5 


CI 




CMP 


$C1,X 


UULLCL ^LL O 111 CI J- iCL Lllall WL i. LB LJ L. L 


DFF1 


90 


03 




BCC 


SDFF6 




DFF3 


20 


3C 


E0 


JSR 


SE03C 


wt lie uiUL-Kf lkS au iIcal U-HJC rL 


DFF6 


A6 


82 




LDX 


$82 




DFF8 


B5 


CI 




LDA 


SC1,X 


write pointer 


DFFA 


20 


C8 


D4 


JSR 


$D4C8 


sec uu tier poi nte r — write P^r 


DFFD 


Al 


99 




LDA 


($99) ,X 


oy te e roiu dux ter 


DFFF 


85 


85 




STA 


$85 


nut" in mi t" nut" rpm" Qtpr 


E001 


A9 


20 




LDA 


#$20 




E003 


20 


9D 


DD 


JSR 


$ DD9 D 


erase bit 5 


E006 


20 


04 


E3 


JSR 


$E304 


add record length to write ptr 


E009 


48 






PHA 




and save 


EOOA 


90 


28 




BCC 


$E034 


not yet in last block? 


EOOC 


A9 


00 




LDA 


#$00 


EOOE 


20 


F6 


D4 


JSR 


$D4F6 


get track number 


E011 


DO 


21 




BNE 


$E034 


does block exist? 



192 



E013 


68 






r* Lift 








uz 




CMP 


#502 


E016 


FO 


12 




BE0 


SE02A 


BO 18 


A9 


80 




LDA 


#$80 




o n 
z u 


Q"7 


DD 


JSR 


$DD97 


E01D 


20 




m 


TCD 


(nl IP 
9 Ul / r 


EO 20 


DC 
DD 


QQ 
77 




LDA 


$99 , X 


gO 2 2 


99 


AA 


uz 


STA 




E025 


A9 


0D 




LDA 


#$0D 


E027 


85 


85 




STA 


$85 


E029 


60 






PTQ 
l\XO 




E02A 


20 


35 


E0 


JSR 


$E035 


E02D 


A6 


82 




LDX 


$82 


E02F 


A9 


00 




LDA 


#$00 


E031 


95 


CI 




STA 


$C1,X 


E033 


60 






RTS 




E034 


68 






PLA 




E035 


A6 


82 




LDX 


$82 


E037 


95 


CI 




STA 


$C1,X 


E039 


4C 


6E 


El 


JMP 


$E16E 


****************************** 


E03C 


20 


D3 


Dl 


JSR 


$D1D3 


E03F 


20 


95 


DE 


JSR 


SDE95 


E042 


20 


9E 


DF 


JSR 


$DF9E 


E045 


50 


16 




BVC 


SE05D 


E047 


20 


5E 


DE 


JSR 


$DE5E 


E04A 


20 


IE 


CF 


JSR 


$CF1E 


E04D 


A9 


02 




LDA 


#$02 


E04F 


20 


C8 


D4 


JSR 


$D4C8 


E052 


20 


AB 


DD 


JSR 


$DDAB 


E055 


DO 


24 




BNE 


$E078 


E057 


20 


57 


DE 


JSR 


$DE57 


E05A 


4C 


99 


D5 


JMP 


$D599 


E05D 


20 


IE 


CF 


JSR 


$CF1E 


E060 


20 


AB 


DD 


JSR 


$DDAB 


E063 


DO 


06 




BNE 


SE068 


E065 


20 


57 


DE 


JSR 


$DE57 


E068 


20 


99 


D5 


JSR 


$D599 


E06B 


20 


95 


DE 


JSR 


SDE95 


E06E 


A5 


80 




LDA 


$80 


E070 


FO 


09 




BEO 


SE07B 


E072 


20 


IE 


CF 


JSR 


$CF1E 


E075 


20 


57 


DE 


JSR 


$DE57 


E078 


20 


IE 


CF 


JSR 


$CF1E 


E07B 


60 






RTS 





****************************** 

E07C 20 05 El JSR $E105 

E07F 20 93 DF JSR $DF93 

E082 OA ASL A 

E083 AA TAX 



Anatomy of the 1541 Disk Drive 



pointer 
= 2 
yes 

set bit 7 

get byte from buffer 
buffer pointer 
as end pointer 
CR 

in output register 



channel number 

write pointer to zero 



channel number 
set write pointer 



write block and read next block 

get drive number 

get track and sector number 

get buffer number 

no rel-file? 

write block 

change buffer 

buffer pointer to 2 
command code for writing? 
no 

read block 
and verify 

change buffer 

command code for writing? 

no 

read block 
and verify 

get track and sector number 
track 

no following track 
change buffer 
read block 
change buffer 



write a byte in a record 

get buffer number 
times 2 
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Pfl Q A 
CiUO 4 


A3 


R R 








uat.d uy tc 


E086 


81 


99 




STA 


( 599 ,X) 


writ© in buffer* 


E088 


B4 


99 




LDY 


$99 ,X 


buffer pointer 


E08 A 


no 






INY 




lncceinent. 


bUob 


nn 


no 




DIN E> 






en Q n 


n't 


R O 




t nv 


^ ft 9 


phannpl m inihp t* 
*_iiaiiiic x 1 luitikjc x 


E08F 


B9 


CI 


00 


LDA 


$00C1,Y 


write pointer 


E092 


FO 


OA 




BEQ 


$E09E 


equal zero? 


E094 


AU 


n o 




LDY 


# c n o 


hn f f ok nni 4- a v ¥■ r\ O 
OUIICL puinccL LU Z 


buy o 


no 

yo 






TYA 






buy / 


A3 


R O 




t nv 

LtL) I 




1 1 Q 1 1 1 1 C X 1 1U1I1UC X 


E099 


D9 


Cl 


00 


CMP 


$00C1,Y 


buffer pointer = write pointer? 


E09C 


DO 


05 




BNE 


$E043 


no 


E09E 


A9 


20 




LDA 


#$20 




EOAO 


4C 


97 


DD 


JMP 


$DD97 


c P {- hi t- ^ 
5*5 t Ult 3 


E0A3 


F6 


99 




INC 


$99 ,X 


increment buffer pointer 


E0A5 


DO 


03 




BNE 


$E0AA 


not" Toyn"? 


E0A7 


20 


3C 


E0 


JSR 


$E03C 


el ea uri f p hi nrV . rpaii npvf nnp 


EOAA 


60 






RTS 






****************************** 


write byte in rel-f ile 


tUnD 


aQ 


an 




t na 

LtUn 






EO AD 


on 


AO 


DD 


TOD 

J oK 


s> UUftO 






nn 


97 






$ E0 D9 


set? 


E0B2 


A5 


85 




LDA 


$85 


rla t- » k\;f p 

Uata uy Lc 


E0B4 


20 


7C 


E0 


JSR 


$E07C 


uyi +■ 1 « rpfni*H 


E0B7 


A5 


F8 




LDA 


$F8 


end? 


E0B9 


F0 


0D 




BEQ 


SE0C8 


yes 


EOBB 


60 






RTS 






EOBC 


A9 


20 




LDA 


#$20 




EOBE 


20 


A6 


DD 


JSR 


$DDA6 


test bit 5 


E0C1 


F0 


05 




BEO 


$E0C8 


not set 


E0C3 


A9 


51 




LDA 


#$51 


■^1 'r»\70T"f1ow in rprnrii 1 

J ± f VVCl X X V** W ill X L U 


E0C5 


8D 


6C 


02 


STA 


$026C 


set error flag 


E0C8 


20 


F3 


E0 


JSR 


$E0F3 


fill remainder with zeroes 


EOCB 


20 


53 


El 


JSR 


$E153 




EOCE 


AD 


6C 


02 


LDA 


$026C 


prrnr ■Flan *ip ^ ? 


E0D1 


F0 


03 




BEQ 


$E0D6 


no 


E0D3 


4C 


C8 


Cl 


JMP 


SC1C8 


set error message 


E0D6 


4C 


BC 


E6 


JMP 


$E6BC 




E0D9 


29 


80 




AND 


#$80 


hit- 7 «Pt- ^ 


EODB 


DO 


05 




BNE 


$E0E2 


yes 


EODD 


A5 


F8 




LDA 


$F8 




EODF 


F0 


DB 




BEO 


SE0BC 


end? 


E0E1 


60 






RTS 






E0E2 


A5 


85 




LDA 


$85 


data byte 


E0E4 


48 






PHA 






E0E5 


20 


1C 


E3 


JSR 


$E31C 


expand side-sector 


E0E8 


68 






PLA 






E0E9 


85 


85 




STA 


$85 




EOEB 


A9 


80 




LDA 


#$80 





194 



Anatomy of the 1541 Disk Drive 



EOED 


20 


9D 


DD 


JSR 


SDD9D 


EOFO 


4C 


B2 


EO 


JMP 


$E0B2 


***************************** 


E0F3 


A9 


20 




LDA 


#$20 


E0F5 


20 


A6 


DD 


JSR 


SDDA6 


E0F8 


DO 


OA 




BNE 


$E104 


EOFA 


A9 


00 




LDA 


#$00 


EOFC 


85 


85 




STA 


$85 


EOFE 


20 


7C 


EO 


JSR 


$E07C 


E101 


4C 


F3 


EO 


JMP 


$E0F3 


E104 


60 






RTS 




***************************** 


E105 


A9 


40 




LDA 


#$40 


E107 


20 


97 


DD 


JSR 


$DD97 


ElOA 


20 


9E 


DF 


JSR 


$DF9E 


E10D 


09 


40 




ORA 


#$40 


E10F 


AE 


57 


02 


LDX 


$0257 


E112 


95 


A7 




STA 


$A7,X 


E114 


60 






RTS 




E115 


20 


9E 


DF 


JSR 


$DF9E 


El 18 


29 


BF 




AND 


#$BF 


E11A 


AE 


57 


02 


LDX 


$0257 


E11D 


95 


A7 




STA 


$A7,X 


E11F 


60 






RTS 




*****************************, 


E120 


A9 


80 




LDA 


#$80 


E122 


20 


A6 


DD 


JSR 


$DDA6 


E125 


DO 


37 




BNE 


$E15E 


E127 


20 


2F 


Dl 


JSR 


$D12F 


E12A 


B5 


99 




LDA 


$99 ,X 


E12C 


D9 


44 


02 


CMP 


$0244,Y 


E12F 


FO 


22 




BEO 


$E135 


E131 


F6 


99 




INC 


$99, X 


E133 


DO 


06 




BNE 


$E13B 


E135 


20 


3C 


EO 


JSR 


$E03C 


E138 


20 


2F 


Dl 


JSR 


$D12F 


E13B 


Al 


99 




LDA 


($99 ,X) 


E13D 


99 


3E 


02 


STA 


$023E,Y 


E140 


A9 


89 




LDA 


#$89 


E142 


99 


F2 


00 


STA 


$00F2,Y 


E145 


B5 


99 




LDA 


$99, Y 


E147 


D9 


44 


02 


CMP 


$0244, Y 


E14A 


FO 


01 




BEQ 


$E14D 


E14C 


60 






RTS 




E14D 


A9 


81 




LDA 


#$81 


E14F 


99 


F2 


00 


STA 


$00F2,Y 


E152 


60 






RTS 





erase bit 7 

write byte in file 

fill record with zeroes 

test bit 5 
set? 

zero as data byte 
write in record 
until record full 



write buffer number in table 

set bit 6 

get buffer number 

set bit 6 

channel number + 7 
write in table 



get buffer number 
erase bit 6 
channel number 
write in table 



get byte from rel-file 

test bit 7 
set? 

get byte from buffer 
buffer pointer 
compare to end pointer 
equal? 

increment buffer pointer 
not zero? 

write block, read next one 
get byte from buffer 

in output register 

set READ and WRITE flag 
buffer pointer 
compare to end pointer 
same? 



set flag for end 



E153 20 DO DF JSR SDFD0 find next record 
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E156 


20 


2F 


Dl 


JSR 


$D12F 


get buffer and channel number 


E159 


A5 


85 




LDA 


$85 


data byte 


E15B 


4C 


3D 


El 


JMP 


$E13D 


into output register 


E15E 


A6 


82 




LDX 


$82 


channel number 


E160 


A9 


OD 




LDA 


#$0D 


CR 


E162 


9D 


3E 


02 


STA 


$023E,X 


into output register 


E165 


A9 


81 




LDA 


#$81 




E167 


95 


F2 




STA 


$F2 ,X 


set flag for end 


E169 


A9 


50 




LDA 


#$50 




E16B 


20 


C8 


CI 


JSR 


$C1C8 


50, 'record not present' 


E16E 


A6 


82 




LDX 


$82 


channel number 


E170 


B5 


CI 




LDA 


$C1 ,X 


write pointer 


E172 


85 


87 




STA 


$87 


save 


E17 4 


C6 


87 




DEC 


$87 




E176 


C9 


02 




CMP 


#$02 


equal 2? 


E178 


DO 


04 




BNE 


$E17E 


no 


E17A 


A9 


FF 




LDA 


#$FF 




E17C 


85 


87 




STA 


$87 




E17E 


B5 


C7 




LDA 


$C7 r X 


record length 


E180 


85 


88 




STA 


$88 




E182 


20 


E8 


D4 


JSR 


$D4E8 


set buffer pointer 


E185 


A6 


82 




LDX 


$82 


channel number 


E187 


C5 


87 




CMP 


$87 


buffer pointer > write pointer? 


E189 


90 


19 




BCC 


$E1A4 




E18B 


FO 


17 




BEO 


$E1A4 


no 


E18D 


20 


IE 


CF 


JSR 


$CF1E 


change buffer 


E190 


20 


B2 


El 


JSR 


$E1B2 




E193 


90 


08 




BCC 


$E19D 




E195 


A6 


82 




LDX 


$82 


channel number 


E197 


9D 


44 


02 


STA 


$0244 ,X 




E19A 


4C 


IE 


CF 


JMP 


SCF1E 


change buffer 


E19D 


20 


IE 


CF 


JSR 


$CF1E 


change buffer 


E1A0 


A9 


FF 




LDA 


#$FF 




E1A2 


85 


87 




STA 


$87 




E1A4 


20 


B2 


El 


JSR 


SE1B2 




E1A7 


BO 


03 




BCS 


$E1AC 




E1A9 


20 


E8 


D4 


JSR 


$D4E8 


set buffer pointer 


El AC 


A6 


82 




LDX 


$82 


channel number 


E1AE 


9D 


44 


02 


STA 


$0244 ,X 


end pointer 


E1B1 


60 






RTS 






E1B2 


20 


2B 


DE 


JSR 


5DE2B 


huff pi" nninl'Pr t-n 7t^m 


E1B5 


A4 


87 




LDY 


$87 


E1B7 


Bl 


94 




LDA 


( $94 ) , Y 


byte from buffer 


E1B9 


DO 


OD 




BNE 


$E1C8 


not zero? 


E1BB 


88 






DEY 






E1BC 


CO 


02 




CPY 


#$02 




E1BE 


90 


04 




BCC 


SE1C4 




E1C0 


C6 


88 




DEC 


$88 




E1C2 


DO 


F3 




BNE 


$E1B7 




E1C4 


C6 


88 




DEC 


$88 




E1C6 


18 






CLC 
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E1C7 60 RTS 

E1C8 98 

E1C9 38 

E1CA 60 



****************************** 



E1CB 


20 


D2 


DE 


JSR 


SDED2 


E1CE 


85 


D5 




STA 


$D5 


El DO 


A9 


0-4 




LDA 


#$04 


E1D2 


85 


94 




STA 


$94 


E1D4 


AO 


OA 




LDY 


#$0A 


E1D6 


DO 


04 




BNE 


$E1DC 


E1D8 


88 






DEY 




E1D9 


88 






DEY 




El DA 


30 


26 




BMI 


$E202 


El DC 


Bl 


94 




LDA 


($94) f Y 


E1DE 


FO 


F8 




BEO 


$E1D8 


E1E0 


98 






TYA 




E1E1 


4A 






LSR 


A 


E1E2 


C5 


D5 




CMP 


$D5 


E1E4 


FO 


09 




BEO 


$E1EF 


El E6 


85 


n<% 

Uj 




STA 




E1E8 


A6 


82 




LDX 


$82 


E1EA 


B5 


CD 




LDA 


$CD,X 


El EC 




Id 


DF 


JSR 


$DF1B 


E1EF 


AO 


00 




LDY 


#$00 


E1F1 


84 


94 




STY 


$94 


E1F3 


Bl 


94 




LDA 


($94) ,Y 


E1F5 


DO 


OB 




BNE 


$E202 


E1F7 


C8 






INY 




E1F8 


Bl 


94 




LDA 


($94) ,Y 


E1FA 


A8 






TAY 


E1FB 


88 






DEY 




E1FC 


84 


D6 




STY 


$D6 


E1FE 


98 






TYA 




E1FF 


4C 


E9 


DE 


JMP 


$DEE9 


E202 


A9 


67 




#$67 


E204 


20 


45 


E6 


JSR 


$E645 


****************************** 


E207 


20 


B3 


C2 


JSR 


$C2B3 


E20A 


AD 


01 


02 


LDA 


$0201 


E20D 


85 


83 




STA 


$83 


E20F 


20 


EB 


DO 


JSR 


$DOEB 


E212 


90 


05 




BCC 


$E219 


E214 


A9 


70 




LDA 


#$70 


E216 


20 


C8 


CI 


JSR 


5C1C8 


E219 


A9 


AO 




LDA 


#$A0 


E21B 


20 


9D 


DD 


JSR 


$DD9D 


E21E 


20 


25 


Dl 


JSR 


$D125 


E221 


FO 


05 




BEO 


$E228 



Anatomy of the 1541 Disk Drive 



get last side-sector 

get number of the side-sector 

save 

pointer to side-sectors 



track # of the previous block 



divide by 2 

= number of the actual block? 
yes 

else save all numbers 
channel number 
buffer number 
read block 

buffer pointer 
track number 
another block? 

sector number = end pointer 



save end pointer 
set buffer pointer 



67, 'illegal track or sector' 

P-command, 'Record' 
verify lines 
secondary address 

find channel number 
found? 

70, "no block' 



erase bits 6 S 7 
verify if 'REL'-file 
yes 



TYA 
SEC 
RTS 
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E223 


A9 


64 




LDA 


#$64 


E225 


20 


C8 


CI 


JSP 


$C1C8 


E228 


B5 


EC 




LDA 


$EC,X 


E22A 


29 


01 




AND 


#$01 


E22C 


85 


7F 




STA 


$7F 


E22E 


AD 


02 


02 


LDA 


$0202 


E231 


95 


B5 




STA 


$B5,X 


E233 


AD 


03 


02 


LDA 


$0203 


E236 


95 


BB 




STA 


$BB,X 


E238 


A6 


B2 




LDA 


$82 


E23A 


A9 


89 




LDA 


#$89 


E23C 


95 


F2 




STA 


$F2,X 


E23E 


AD 


04 


02 


LDA 


$0204 


E241 


F0 


10 




BEQ 


$E253 


E243 


38 






SEC 




E244 


E9 


01 




SBC 


#$01 


E246 


F0 


OB 




BEQ 


$E253 


E248 


D5 


C7 




CMP 


$C7,X 


E24A 


90 


07 




BCC 


$E253 


E24C 


A9 


51 




LDA 


#$51 


E24E 


8D 


6C 


02 


STA 


$026C 


E251 


A9 


00 




LDA 


#$00 


E253 


85 


D4 




STA 


$D4 


E255 


20 


OE 


CE 


JSR 


$CE0E 


E258 


20 


F8 


DE 


JSR 


$DEF8 


E2SB 


50 


08 




BVC 


$E265 


E25D 


A9 


80 




LDA 


#$80 


E25F 


20 


97 


DD 


JSP 


$DD97 


E262 


4C 


5E 


El 


J MP 


$E15E 


E265 


20 


75 


E2 


JSR 


$E275 


E268 


A9 


80 




LDA 


#$80 


E26A 


20 


A6 


DD 


JSR 


SDDA6 


E26D 


F0 


03 




BEO 


$E272 


E26F 


4C 


5E 


El 


JMP 


$E15E 


E272 


4C 


94 


CI 


JMP 


$C194 


E275 


20 


9C 


E2 


JSR 


SE29C 


E278 


A5 


D7 




LDA 




E27A 


20 


C8 


D4 


JSR 


$D4C8 


E27D 


A6 


82 




LDX 


$82 


E27F 


B5 


C7 




LDA 


$C7,X 


E281 


38 






SEC 




E282 


E5 


D4 




SBC 


$D4 


E284 


B0 


03 




BCS 


$E289 


E286 


4C 


02 


E2 


JMP 


$E202 


E289 


18 






CLC 




E28A 


65 


D7 




ADC 


$D7 


E28C 


90 


03 




BCC 


$E291 


E28E 


69 


01 




ADC 


#$01 


E290 


38 






SEC 




E291 


20 


09 


EO 


JSR 


$E009 


E294 


4C 


38 


El 


JMP 


$E138 



64, 'file type mismatch' 



drive number 
record number lo 

record number hi 

channel number 

READ and WRITE flag 

byte-pointer 

zero? 



compare with record length 



51, 'overflow in record' 



calculate pointer in rel-file 
and read appropriate side-sec 
does block exist? 

set bit 7 

and 50, 'record not present' 



test bit 7 
not set 

50, 'record not present' 
done 



pointer in rel-file 
set buffer pointer 
channel number 
record length 

minus position 
positive? 

67, 'illegal track or sector' 



add pointer in data block 
no overflow 
plus 2 

set pointer 

get byte from buffer 
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E297 


A9 


51 




LDA 


#$51 


E299 


20 


C8 


CI 


JSR 


$C1C8 


E29C 


A5 


94 




LDA 


$94 


E29E 


85 


89 




STA 


$89 


E2A0 


A5 


95 




LDA 


$95 


E2A2 


85 


8A 




STA 


$8A 


E2A4 


20 


DO 


E2 


JSR 


$E2D0 


E2A7 


DO 


01 




BNE 


SE2AA 


E2A9 


60 






RTS 




E2AA 


20 


Fl 


DD 


JSR 


$ DDF1 


E2AD 


20 


OC 


DE 


JSR 


$ DEOC 


E2B0 


A5 


80 




LDA 


$80 


E2B2 


F0 


OE 




BEO 


$E2C2 


E2B4 


20 


D3 


E2 


JSR 


$E2D3 


E2B7 


DO 


06 




BNE 


$E2BF 


E2B9 


20 


IE 


CF 


JSR 


$CF1E 


E2BC 


4C 


DA 


D2 


JMP 


$D2DA 


E2BF 


20 


DA 


D2 


JSR 


$D2DA 


E2C2 


AO 


00 




LDY 


#$00 


E2C4 


Bl 


89 




LDA 


($89) ,Y 


E2C6 


85 


80 




STA 


$80 


E2C8 


C8 






I NY 




E2C9 


Bl 


89 




LDA 


( SftQ 1 V 


E2CB 


85 


81 




STA 


$81 


E2CD 


4C 


AF 


DO 


JMP 


$D0AF 


E2D0 


20 


3E 


DE 


JSR 


SDE3E 


E2D3 


AO 


00 




LDY 


#$00 


E2D5 


Bl 


89 




LDA 


($89) ,Y 


E2D7 


C5 


80 




CMP 


$80 


E2D9 


F0 


01 




BEO 


$E2DC 


E2DB 


60 






RTS 




E2DC 


C8 






I NY 




E2DD 


Bl 


89 




LDA 


($89) ,Y 


E2DF 


C5 


81 




CMP 


$81 


E2E1 


60 






RTS 




****************************** 


E2E2 


20 


2B 


DE 


JSR 


$DE2B 


E2E5 


AO 


02 




LDY 


#$02 


E2E7 


A9 


00 




LDA 


#$00 


E2E9 


91 


94 




,STA 


($94) ,Y 


E2EB 


C8 






I NY 


E2EC 


DO 


FB 




BNE 


$E2E9 


E2EE 


20 


04 


E3 


JSR 


SE304 


E2F1 


95 


CI 




STA 


$C1,X 


E2F3 


A8 






TAY 




E2F4 


A9 


FF 




LDA 


#$FF 


E2F6 


91 


94 




STA 


($94) ,Y 


E2F8 


20 


04 


E3 


JSR 


$E304 


E2FB 


90 


F4 




BCC 


$E2F1 


E2FD 


DO 


04 




BNE 


$E303 



51, 'overflow in record' 

buffer pointer lo 

buffer pointer hi 

compare track and sector 
not equal? 



track 

no block following? 

compare track and sector number 

not equal? 

change buffer 



track 



and sector of the next block 
read block 



track number 
compare 



sector number 
compare 



subdivide records in data block 
set buffer pointer 



erase buffer 



set pointer to next record 



$FF as 1st character in record 
set pointer to next record 
done in this block? 
block full? 
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E2FF 


A9 


00 




LDA 


#$00 




E301 


95 


CI 




STA 


$C1,X 




E303 


60 






RTS 






****************************** 


set pointer to next record 


E304 


A6 


82 




LDX 


$82 


channel number 


E306 


B5 


CI 




LDA 


$C1,X 


write pointer 


E308 


38 






SEC 






E309 


F0 


0D 




BEO 


$E318 


equal zero? 


E30B 


18 






CLC 






E30C 


75 


C7 




ADC 


$C7,X 


add record length 


E30E 


90 


0B 




BCC 


$E31B 


smaller than 256? 


E310 


DO 


06 




BNE 


$E318 


equal 256? 


E312 


A9 


02 




LDA 


#$02 




E314 


2C 


CC 


FE 


BIT 


SFECC 




E317 


60 






RTS 






E318 


69 


01 




ADC 


#$01 


add two 


E31A 


38 






SEC 






E31B 


60 






RTS 






****************************** 


expand side-sector 


E31C 


20 


D3 


Dl 


JSR 


$D1D3 


get drive number 


E31F 


20 


CB 


El 


JSR 


$E1CB 


get last side-sector 


E322 


20 


9C 


E2 


JSR 


SE29C 




E325 


20 


7B 


CF 


JSR 


$CF7B 




E328 


A5 


D6 




LDA 


$D6 




E32A 


85 


87 




STA 


$87 




E32C 


A5 


D5 




LDA 


$D5 


side— sector number 


E32E 


85 


86 




STA 


$86 




E330 


A9 


00 




LDA 


#$00 




E332 


85 


88 




STA 


$88 




E334 


A9 


00 




LDA 


#$00 




E336 


85 


D4 




STA 


$D4 




E338 


20 


OE 


CE 


JSR 


$CE0E 


calculate side-sector no. and ptr 


E33B 


20 


4D 


EF 


JSR 


$EF4D 


number of free blocks 


E33E 


A4 


82 




LDY 


$82 


channel number 


E340 


B6 


C7 




LDX 


$C7,Y 


record length 


E342 


CA 






DEX 






E343 


8A 






TXA 






E344 


18 






CLC 






E345 


65 


D7 




ADC 


$D7 


plus pointer in data block 


E347 


90 


OC 




BCC 


$E355 




E349 


E6 


D6 




INC 


$D6 




E34B 


E6 


D6 




INC 


$D6 


increment ptr to end by 2 


E34D 


DO 


06 




BNE 


$E355 




E34F 


E6 


D5 




INC 


$D5 


increment side-sector number 


E351 


A9 


10 




LDA 


#$10 




E353 


85 


D6 




STA 


#D6 


set pointer to 16 


E355 


A5 


87 




LDA 


$87 




E357 


18 






CLC 






E358 


69 


02 




ADC 


#$02 




E35A 


20 


E9 


DE 


JSR 


SDEE9 


set buffer ptr for side-sector 


E35D 


A5 


D5 




LDA 


$D5 


side-sector number 


E35F 


C9 


06 




CMP 


#$06 
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p o a i 
E» Jul 


90 


05 




BCC 


SE368 


smaller than 6? 


E363 


A9 


52 




LDA 


#$52 




EijOS 


on 
zu 


PQ 
L.O 


pi 


JSR 


$C1C8 


52, 'file too large' 


CiJDO 


AD 


Do 




LDA 




end pointer 


E36A 


38 






SEC 




E36B 


E5 


87 




SBC 


$87 


minus last end pointer 




on 


n o 




BCS 


$E372 


E36F 


E9 


OF 




SBC 


#$0F 


minus 16 


b J / x 


18 






CLC 






no / z 




o o 
/ z 




STA 


$72 




Ci .5 / 4 


A3 


LO 




LDA 


$D5 


side-sector number 


Ej J / O 


EO 


ob 




SBC 


$86 


minus last side-sector number 


fc» J. /o 


85 


73 




STA 


$73 


save 


bJ /A 


A2 


00 




LDX 


#$00 




LJ / L. 


o b 


on 
/ U 




STX 


$70 


erase sum for calculation 


FT7P 

E. O / Ei 


O D 


7 1 




STX 


5/1 




CjJO U 


a a 

AA 






TAX 






E38 1 


20 


m 
ji 


nc 


TOO 


9 Ut D 1 


calculate block # of rel— file 




a n. 


7 1 




LDA 


5/1 




PO Q £ 


r\n 
ZJU 


no 
U / 




BNE 


5E38 F 




pO.fi Q 

DJOO 


AO 


o n 
/ U 




LDX 


$70 




E38A 


pa. 












pOOD 
EiOOD 


nn 
1JU 


no 
uz 




BNE 


5E38F 




E38 D 


EiD 


fifl 
o O 




INC 


cog 
900 




Et jo r 




70. 


no 
uz 


CMP 


on oo o 
9UZ / J 


block number of rel-file 




7 u 


na 




DPP 

DLL 


$ E39D 


greater than free blocks on disk? 


Ei J y 4 


nn 
uu 


pn 




BNE 


PEiOO J 


52, 'tile too large' 


E396 


a n 


70 
/ Z 


no 
uz 


LDA 


•? U z / Z 


Ei J 3 3 


pi^ 


7n 
/ u 




CMP 


con 
9 / U 




piqq 




L.0 




BCC 


? b Jo J 


52, 'file too large' 


po.on 
EijyL* 


act 
Ay 


n i 

U 1 




LDA 


#$01 


E39F 


zu 


pa 
r o 




JSR 


9 UH E O 


get byte from buffer 


PTAO 
EiOrtZ 


1 fi 
1 o 






PT C 




E3A3 


69 


01 




ADC 


n i 

ff *? U J. 


plus 1 


E3A5 


A6 


82 




LDX 


$82 


E3A7 


95 


CI 




Oln 


9L-± f A 


as write pointer 


E3A9 


20 


IE 


Fl 


TCD 
U OP 


Cpl 1 p 
9 r 1 1 Ei 


find free block in BAM 


Ei J 


on 
zu 


FD 


DD 


JSR 


5 DDFD 


track and sector in buffer 


E3AF 


A5 


88 




LDA 


$88 




E3B1 


DO 


15 




BNE 


$E3C8 


only one block needed? 


FO.p.0. 
E. J DJ 


o n 
z u 


OEi 


DE 


JSR 


5DE5E 


write block 


Ei J DO 


on 
z u 


1 P 
lEi 


pp 


JSR 


$CF1 E 


change buffer 


P ^RQ 
Ei 


on 
zu 


Uu 


Do 


JSR 


$ D6 DO 


transmit param to disk controller 


EiJ Bl*. 


on 
z u 


1 Ci 


r 1 


JSR 


Cbi 1 n 

s>f 11E 


find free block in BAM 


P TOP 


on 
ZU 


FD 


DD 


JSR 


$DDFD 


track and sector in buffer 


E3C2 


on 
ZU 


E2 


E2 


JSR 


$E2E2 


erase buffer 


E3C5 


4C 


D4 


E3 


U Fir 


Cr pi y\a 
P Ei J Lt*t 




E3C8 


20 


IE 


CF 


JSR 


$CF1E 


change buffer 


E3CB 


20 


DO 


D6 


JSR 


$D6D0 


transmit param to disk controller 


E3CE 


20 


E2 


E2 


JSR 


$E2E2 


erase buffer 


E3D1 


20 


19 


DE 


JSR 


$DE19 


zero byte and end ptr in buffer 


E3D4 


20 


5E 


DE 


JSR 


SDE5E 


write block 


E3D7 


20 


OC 


DE 


JSR 


$DE0C 


get track and sector 


E3DA 


A5 


80 




LDA 


$80 


track 
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E3 DC 


A Q 






PHA 






E3DD 


A4 


8 1 




LDA 


Sol 


and sector 


E3DF 


A Q 






PHA 




save 


E3E0 


20 


3E 


DE 


JSR 


9DE3E 


get track and sector from disk 


E3E3 


Ad 


Q 1 
O 1 




LDA 




controller 


p'S PC 
Cj j hi D 


4 O 






PHA 






E3E6 


a£ 


an 

OU 




LDA 


con 


save track and sector 


pipo 

CiJElO 


AR 

*to 






r rift 






E3 E9 


on 


a c 

4D 


DF 


JSR 


5 DF4 b 


set Our t er ptr tor s iae- sec tor 


E3EC 


AA 






TAX 




& J EiU 


nn 


Urt 




BNE 


cpopq 






20 


A P 


PA 

Ej*± 


TCP 


^ PA A P 


Wi 1 U" blue bcLtUi 


E3F2 


A9 


10 




LDA 


asm 

If 9 xu 




pq p a 


zu 


PQ 


hp 


TCD 


q nppQ 

9 UCjEj7 


uullcl puintcL tu ID 


I? "i P"7 


pa 


Rfi 
O D 






P O O 


1 n KQm Q n t" CI Hq — CQft" /~\ v- n 1 1 TT\ V"\ O V 

lncccincnt 5iuc"&ct cot nurauwir 




AR 
DO 






dt a 






p ^ pa 


20 


8D 


DD 


■JSR 




¥ V J* P If in Qliflp QPft'fiT" 


E3FD 


68 






PLA 






E3 FE 


20 


8D 


DD 


JSR 


c nnfiri 

V UL/O LJ 


ce* i- rw in ci Hp - epffnr 

SCv LUl ±11 91UC BCLLUL 


E401 


68 






PLA 






E402 


85 


81 




STA 


$ 8 1 




PAnA 


fiR 
DO 






dt a 

lr Lift 






E405 


ft S 
O D 


80 




STA 


$80 


a nrt not* frapV hp p W 


LIU / 


r u 


np 
ur 




Run 


e p^ i q 


r\t~\ Tri/~it"o hi If a 


CAD Q 


AD 


OO 




r na 


C Q C 

POD 


s iue~secuor nuinDe t 


CiftUD 


PR 

yj 


nc 

UD 




L.Flr' 


$D5 




p a n Ti 


nfi 
UU 


A / 




BMP 


P Ej J DO 


yes 


E4 OF 


20 


AR 


DF 


JSR 


e npAR 


opf huff ay nfi" in ccio f" 

bCL UU££cL y Li- J.I1 blUC bey tvl 


E4 1 2 


C5 


D6 




CMP 


P uo 




PA 1 A 


on 


an 

AU 






P tjBD 


cma 1 1 <a>~0 
s lila X lCL f 


PA 1 A 


pn 


nn 




npn 


9 Hi J L.O 


same 


PA 1 ft 


on 
z u 


AR 
*4D 


np 
ur 


U OK 


pur 43 


ocC UULLcL f ^ blUB oevtUI 


E4 IB 


1o 






PHA 






pa l p 


aQ 

A? 


nn 
uu 




t n a 

IjUA 


& c nn 
VP uu 




PA 1 P 


on 
zu 




np 


TCD 


q npnp 

P UftUL. 


pul IlLCL tU ZclU 


PA 01 




nn 
uu 




t na 

L>UA 


ff P uu 




PA 9*5 


aft 

MO 






in I 






PA A 
Et4 Z4 


Q 1 


Q A 




QTa 
Din 


/ CO A 1 V 


do LidLN, IIUIKUC L 


E426 


C8 






INY 






E427 


68 






PLA 




jpnrl nni nf"pr 

■v 1 1 VJ. LIU LlltCL 


£4 28 


38 






SEC 






E429 


E9 


01 




SBC 


asm 

If VVl 


mi n 1 1 q on >p 


E42B 


91 


94 




STA 


($94) ,1 


as sector 


E42D 


20 


6C 


DE 


JSR 


$DE6C 


write block 


1? A 1ft 


on 
zu 




UD 




encnft 


atiu vctliy 


I? /I "5 "J 


on 
zu 


P/I 


PP 


JDK 


Q FPPA 
9 C> £i£ *i 


upuate 13AP1 


E436 


20 


0E 


CE 


JSR 


$CE0E 


iinHnhp nni nl*pr fp<i" r^l — f i 1 p 


E439 


20 


IE 


CF 


JSR 


$CF1E 


change buffer 


E43C 


20 


F8 


DE 


JSR 


SDEF8 


right side-sector? 


E43F 


70 


03 




BVS 


$E444 


no 


E441 


4C 


75 


E2 


J MP 


$E275 




E444 


A9 


80 




LDA 


#$80 




E446 


20 


97 


DD 


JSR 


$DD97 


set bit 7 


E449 


A9 


50 




LDA 


#$50 
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E44B 


20 


C8 


CI 


JSR 


$C1C8 


50, 'record not present' 


****************************** 


write side-sector and allocate 














new one 


E44E 


20 


IE 


Fl 


JSR 


$F11E 


find free block in BAM 


E451 


20 


IE 


CF 


JSR 


$CF1E 


change buffer 


E454 


20 


Fl 


DD 


JSR 


$DDF1 


write block 


E457 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


E45A 


48 






PHA 




E45B 


20 


CI 


DE 


JSR 


$DEC1 


erase buffer 


E45E 


A6 


82 




LDX 


$82 


channel number 


E460 


B5 


CD 




LDA 


$CD,X 


buffer number 


E462 


A8 






TAY 






E463 


68 






PLA 






E464 


AA 






TAX 






E465 


A9 


10 




LDA 


#$10 


16 bytes of the side-sector 


E467 


20 


A5 


DE 


JSR 


$DEA5 


copy in buffer 


E46A 


A9 


00 




LDA 


#$00 


E46C 


20 


DC 


DE 


JSR 


$DEDC 


buffer ptr to 0, old side-sector 


E46F 


AO 


02 




LDY 


#$02 


E471 


Bl 


94 




LDA 


( $94) r Y 


side-sector number 


E473 


48 






PHA 






E474 


A9 


00 




LDA 


#$00 




E476 


20 


C8 


D4 


JSR 


$D4C8 


buffer ptr to 0, new side-sector 


E479 


68 






PLA 




E47A 


18 






CLC 






E47B 


69 


01 




ADC 


#$01 


increment side-sector number 


E47D 


91 


94 




STA 


( $94 ) , Y 


and in buffer 


E47F 


OA 






ASL 


A 


times 2 


E480 


69 


04 




ADC 


#$04 


plus 4 


E482 


85 


89 




STA 


$89 


E484 


A8 






TAY 






E485 


38 






SEC 






E486 


E9 


02 




SBC 


#$02 


minus 2 


E488 


85 


8A 




STA 


$8A 


same pointer to old side-sector 


E48A 


A5 


80 




LDA 


$80 


track 


E48C 


85 


87 




STA 


$87 




E48E 


91 


94 




STA 


($94) ,Y 


in buffer 


E490 


C8 






INY 






E491 


A5 


81 




LDA 


$81 


sector 


E493 


85 


88 




STA 


$88 




E495 


91 


94 




STA 


($94) ,Y 


in buffer 


E497 


AO 


00 




LDY 


#$00 




E499 


98 






TYA 






E49A 


91 


94 




STA 


($94) ,Y 


zero in buffer 


E49C 


C8 






INY 






E49D 


A9 


11 




LDA 


#$11 


17 


E49F 


91 


94 




STA 


($94) ,Y 


number of bytes in block 


E4A1 


A9 


10 




LDA 


#$10 


16 


E4A3 


20 


C8 


D4 


JSR 


$D4C8 


buffer pointer to 16 


E4A6 


20 


50 


DE 


JSR 


$DE50 


write block 


E4A9 


20 


99 


D5 


JSR 


$D599 


and verify 


E4AC 


A6 


82 




LDX 


$82 


channel number 


E4AE 


B5 


CD 




LDA 


$CD,X 


buffer number of the side-sector 


E4B0 


48 






PHA 
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E4B1 


20 


9E 


DF 


JSR 


$DF9E 


E4B4 


A6 


82 




LDX 


$82 


B4B6 


95 


CD 




STA 


$CD,X 


E4B8 


68 






PLA 




B4B9 


AE 


57 


02 


LDX 


$0257 


E4BC 


95 


A7 




STA 


$A7 ,X 


E4BE 


A9 


00 




LDA 


#$00 


E4C0 


20 


C8 


D4 


JSR 


$D4C8. 


E4C3 


AO 


00 




LDY 


#$00 


E4C5 


A5 


80 




LDA 


$80 


E4C7 


91 


94 




STA 


($94) ,Y 


E4C9 


C8 






INY 




E4CA 


A5 


81 




LDA 


$81 


E4CC 


91 


94 




STA 


( $94) ,Y 


E4CE 


4C 


DE 


E4 


J MP 


$E4DE 


E4D1 


20 


93 


DF 


JSR 


$DF93 


E4D4 


A6 


82 




LDX 


$82 


E4D6 


20 


IB 


DF 


JSR 


$DF1B 


E4D9 


A9 


00 




LDA 


#$00 


E4DB 


20 


C8 


D4 


JSR 


$D4C8 


EFDE 


C6 


8A 




DEC 


$8A 


E4E0 


C6 


8A 




DEC 


$8A 


E4E2 


A4 


89 




LDY 


$89 


E4E4 


A5 


87 




LDA 


$87 


E4E6 


91 


94 




STA 


($94) ,Y 


E4E8 


C8 






INY 




E4E9 


A5 


88 




LDA 


$88 


E4EB 


91 


94 




STA 


($94) ,Y 


E4ED 


20 


5E 


DE 


JSR 


$DE5E 


E4F0 


20 


99 


D5 


JSR 


$D599 


E4F3 


A4 


8A 




LDY 


$8A 


E4F5 


CO 


03 




CPY 


#$03 


E4F7 


BO 


D8 




BCS 


$E4D1 


E4F9 


4C 


IE 


CF 


JMP 


$CF1E 



***************************** 

E4FC 00 

E4FD AO 4F CB 

E500 20 21 22 23 24 27 

E506 D2 45 41 44 

E50A 89 

E50B 52 

E50C 83 

E50D 20 54 4F 4F 20 AC 4A 52 
E517 50 
E518 8B 06 

E51A 20 50 52 45 53 45 4E D4 
E522 51 

E523 CF 56 45 52 46 4C 4F 57 
E52E 8B 
E52F 25 28 
E531 8A 89 
E533 26 
E534 8A 



get buffer number 
channel number 
write in table 

channel number + 7 
in table 

buffer pointer to zero 

track 

in buffer 

sector 
in buffer 



get buffer number 
channel number 
read block 

buffer pointer to zero 

counter for side-sector blocks 

track number 
in buffer 

sector number 
in buffer 
write block 
and verify 

counter for side-sector blocks 

greater than or equal to 3? 
change buffer 

table of error messages 
00 
' OK' 

error numbers of 'read error' 
'Read' 

pointer to 'error' 
52 

pointer to 'file' 
47 C5 ' too largE' 
50 

pointer to 'record ' and "not 

' presenT' 

51 

20 'Overflow in' 

pointer to 'record' 

error numbers of 'write error' 

pointer to 'write' and 'error 

. 26 

pointer to 'write' 
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E*D JD 


on 
ZU 


en 
DU 




4F 


54 


45 


43 


54 


d 3 4 U 


zy 
















PC A 1 
LD41 


Q Q 
DO 
















PC vl *> 


in 
ZU 


4y 


85 












F*.AC. 

H J T J 


oc 

Oj 
















Ei34D 


.3U 


1 1 
Jl 


32 


33 


34 








Cj D 4d 


r,o 

Uj 


CQ 

Dy 


4E 


54 


A 1 
41 


C Q 

Do 






DCC 1 

E*DD 1 


Q Q 

o y 
















pec O 


cn 

DU 
















PC C 
CD D J 


Q a 
oA 


no 


84 










E5 56 


D J 
















Cij3 / 


ft "3 
















Eijdo 


on 

ZU 


4D 


CQ 
DO 


4y 


CO 

JJ 


C>1 

D4 


no 
D J 




E55F 


64 
















E560 


















PC£ 1 
EiD 1 


on 
zu 


D4 


CO 

Dy 


en 
DU 


A C 
4D 








E56 6 


ft R 
















IjJD / 


A c 

Oj 
















peep 


pp 


4F 


on 

ZU 


A "5 
4Z 


4C 


4F 


43 


CB 


C<D / U 


DO 


£ 7 














PR 79 


PQ 


ap 

4L. 


A r* 
4L. 


c 

4D 


A "7 

4 / 


41 


4C 


ZU 


pci a 

CD / A 


C A 


co 

DZ 


A 1 


A T 


4B 


ZU 


4F 


52 


F^ft 9 


on 
zu 


Do 


A C 
4D 


A "i 
4 J 


C /I 
D4 


4F 


UZ 






D J. 
















E58A 


ft** 


U D 


ft A 
o 4 












CrjO LI 




oz 














E59 


ft T 


n fi 

U D 


87 












PCQ 


n i 
















E594 


ft T 
















E594 


53 


20 


rt 


A T 
4 J 


CO 
D Z 


Al 
4 1 


C A 
D4 


A ~i 
4D 


u j 7 r 


7n 
/ u 
















pc an 

CDrlU 


pp 


4C 


on 

ZU 


A 
4.5 


4o 


41 


4c 


4E 


Ci3nn 


7 1 

/ J. 
















E5 AB 


PA 
1-4 


AQ 

4y 


c i 

DZ 












E5AE 


fiQ 
















E5AF 


72 
















E5B0 


88 
















CiJDi. 


on 
zu 


Afi 


55 


4C 


pp 








E5B6 


7 1 

/ j 
















E5B7 




AO 
4 Z 


4D 


20 


44 


4F 


c i 

JO 


in 
ZU 


E5BF 


56 


TO 


2E 


36 


on 

ZU 


1 

jl 


oc 

JJ 


"3 A 

J4 


E5C4 


74 
















pepc 


PA 


A o 

4Z 


49 


56 


45 








penn 
CDL.rt 


AC 

Ut> 
















E5CB 


on 

ZU 


R 
D Z 


45 


41 


/ A 


uy 






PR nA 

Dj UD 


no 
uy 
















E5D6 


C5 


52 


52 


4F 


D2 








E5DB 


OA 
















E5DC 


D7 


52 


49 


54 


C5 








E5E1 


03 
















E5E2 


C6 


49 


4C 


C5 










E5E6 


04 
















E6E7 


CF 


50 


45 


CE 










E5EB 


05 
















E5EC 


CD 


49 


53 


4D 


41 


54 


43 


C8 



20 4P CE ■ protect oN' 
29 

pointer to 'disk' 
' id' 

pointer to ' mismatch' 

error numbers for 'syntax error' 

' Syntax' 

pointer to ' error' 
60 

ptrs to 'write', 'file' & 'open' 
63 

pointer to 'file' 

' exists' 

64 

pointer to 'file' 
' type' 

pointer to 'mismatch' 
65 

'No block' 

'illegal track or sector' 

'Illegal • 

'track or' 

'sectoR' 

61 

pointer to 'file', 'not' & 'open' 
error nos. for 'file not found' 
ptrs to 'file', 'not' & 'found' 
01 

pointer to 'file' 
48 45 C4 's scratcheD' 
70 

45 CC 'No channel,' 
71 

■Dir' 

pointer to 'error' 
72 

pointer to 'disk' 

' fulL' 

73 

'Cbm dos ' 
Bl 'V2.6 1541' 
74 

' Drive 1 

pointer to 'not' 
' ready' 

' ErroR' 

'WritE' 

' FilE' 

'OpeN' 

1 MismatcH* 
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E5F4 06 



E5F5 


CE 4F 


D4 








E5F8 


07 










E5F9 


C6 4F 


55 


4E 


C4 




E5FE 


08 










E5FF 


C4 49 


53 


CB 






E603 


OB 










E604 


D2 45 


43 


4F 


52 C4 




**************************** 


E60A 


48 






PHA 




E60B 


86 


F9 




STX 


$F9 


E60D 


8A 






TXA 




E60E 


OA 






ASL 


A 


E60F 


AA 






TAX 




E610 


B5 


06 




LDA 


$06 ,X 


E612 


85 


80 




STA 


$80 


E614 


B5 


07 




LDA 


$07 ,X 


E616 


85 


81 




STA 


$81 


E618 


68 






PLA 




E619 


29 


OF 




AND 


#$0F 


E61B 


F0 


08 




BEO 


$E625 


E61D 


C9 


OF 




CMP 


#$0F 


E61F 


DO 


06 




BNE 


$E627 


E621 


A9 


74 




LDA 


#$74 


E623 


DO 


08 




BNE 


$E62D 


E625 


A9 


06 




LDA 


#$06 


E627 


09 


20 




ORA 


#$20 


E629 


AA 






TAX 




E62A 


CA 






DEX 




E62B 


CA 






DEX 




E62C 


8A 






TXA 




E62D 


48 






PHA 




E62E 


AD 


2A 


02 


LDA 


$022A 


E631 


C9 


00 




CMP 


#$00 


E633 


DO 


OF 




BNE 


SE644 


E635 


A9 


FF 




LDA 


#$FF 


E637 


8D 


2A 


02 


STA 


$022A 


E63A 


68 






PLA 




E6 3B 


20 


C7 


E6 


JSP. 


$E6C7 


E63E 


20 


42 


DO 


JSR 


$D042 


E641 


4C 


48 


E6 


JMP 


$E648 


E644 


68 






PLA 




E645 


20 


C7 


E6 


JSR 


$E6C7 


E648 


20 


BD 


CI 


JSR 


$C1BD 


E64B 


A9 


00 




LDA 


#$00 


E64D 


8D 


F9 


02 


STA 


$02F9 


E650 


20 


2C 


CI 


JSR 


$C12C 


E653 


20 


DA 


D4 


JSR 


$D4DA 


E656 


A9 


00 




LDA 


#$00 


E658 


85 


A3 




STA 


$A3 


E65A 


A2 


45 




LDX 


#$45 


E65C 


9A 






TXS 




E65D 


A5 


84 




LDA 


$84 



'NOT' 
' FounD' 
' DisK' 
' RecorD' 

prepare error number and message 
save error code 
drive number 

times 2 
as pointer 

get track 

and sector number 

get error code back 

isolate bits 0-3 

zero, then 24, 'read error" 

15? 



74, 'drive not ready' 
6 

add $20 



subtract two 

save error number 

number of the disk command 

OPEN or VALIDATE? 

no 



get error number back 
generate error message 
load BAM 

set error message 



set error message 
erase input buffer 

erase error flag 
turn LED off 

close channels 17 and 18 

input buffer pointer to zero 

initialize stack pointer 
secondary address 
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E65F 


29 


OF 




AND 


#$0F 


E661 


85 


83 




STA 


$83 


E663 


C9 


OF 




CMP 


#$0F 


E665 


FO 


31 




BEQ 


SE698 


E667 


78 






SEI 




E668 


A5 


79 




LDA 


$79 


E66A 


DO 


1C 




BNE 


$E688 


E66C 


A5 


7A 




LDA 


$7A 


E66E 


DO 


10 




BNE 


$E680 


E670 


A6 


83 




LDX 


$83 


E672 


BD 


2B 


02 


LDA 


$022B,X 


E675 


C9 


FF 




CMP 


#$FF 


E677 


FO 


IF 




BEO 


$E698 


E679 


29 


OF 




AND 


#$0F 


E67B 


85 


82 




STA 


$82 


E67D 


4C 


8E 


E6 


JMP 


$E68E 


***************************** 


E680 


20 


EB 


DO 


JSR 


$D0EB 


E683 


20 


4E 


EA 


JSR 


$EA4E 


E686 


DO 


06 




BNE 


$E68E 


***************************** 


E688 


20 


07 


Dl 


JSR 


$D107 


E68B 


20 


4E 


EA 


JSR 


$EA4E 


E68E 


20 


25 


Dl 


JSR 


$D125 


E691 


C9 


04 




CMP 


#$04 


E693 


BO 


03 




BCS 


SE698 


E695 


20 


27 


D2 


JSR 


$D227 


E698 


4C 


E7 


EB 


JMP 


$EBE7 


***************************** 


E69B 


AA 






TAX 




E69C 


A9 


00 




LDA 


#$00 


E69E 


F8 






SED 




E69F 


EO 


00 




CPX 


#$00 


F6A1 


FO 


07 




BEO 


$E6AA 


E6A3 


18 






CLC 




E6A4 


69 


01 




ADC 


#$01 


A6A6 


CA 






DEX 




E6A7 


4C 


9F 


E6 


JMP 


$E69F 


E6AA 


D8 






CLD 





15? 

yes, command channel 

LISTEN active? 
yes 

TALK active? 
yes 

channel number 

open channel to this second, addr 
no 

channel number 



TALK 

open channel for reading 
accept byte 



LISTEN 

open channel for writing 

accept byte 

verify file type 

file type REL? 

yes 

close channel 



convert hex to decimal (2 bytes) 



convert hex to BCD 



****************************** 



E6AB 


AA 




TAX 




E6AC 


4A 




LSR 


A 


E6AD 


4A 




LSR 


A 


E6AE 


4A 




LSR 


A 


E6AF 


4A 




LSR 


A 


E6B0 


20 


B4 E6 


JSR 


$E6B4 


E6B3 


8A 




TXA 




E6B4 


29 


OF 


AND 


#$0F 


E6B6 


09 


30 


ORA 


#$30 


E6B8 


91 


A5 


STA 


($A5) ,Y 


E6BA 


C8 




I NY 



divide BCD number into two bytes 



shift hi-nibble down 



convert to ASCII 

erase top 4 bits 
add *0' 

write in buffer 
increment buffer pointer 
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E6BB 


60 






RTS 






****************************** 


write ok in buffer 


E6BC 


20 


23 


CI 


JSR 


$C123 


erase error flag 


E6BF 


A9 


00 




LDA 


#$00 


error number 


E6C1 


AO 


00 




LDY 


#$00 




E6C3 


84 


80 




STY 


$80 


tracK 


E6C5 


84 


81 




STY 


$81 


sector 


****************************** 


error message in uuiicl 


EiD \. 1 


an 


nn 
uu 




t rw 




Duner pointer 






Uj 




t ny 






E6C8 


86 


A5 




STX 




pointer 9rt_>/ $e\x> i\j >?zijj 




n£ 


u z 




t ny 


if ?W< 






8 6 


A6 




STX 


$A6 




E6D1 


20 


AB 


E6 


JSR 


$E6AB 


<ai"T*f*»i" A +- A Qf* 1 T T anri in hi if f pr 

CilUL ff L.U rtoV-i X CII1U XII UULiCL 


E6D4 


A9 


2C 




LDA 


if v 


1 t * comma 


E6D6 


9A 


A5 




STA 


( S AS 1 Y 


write in dulicl 


pnfift 

EiUuO 


C8 






INY 




lncrement due ret pointer 


E6D9 


AD 


D5 


02 


LDA 


$02D5 


cirst digit or trie u i sk status 


CiD LJ>w 


8D 


** o 


02 


STA 


$0243 


in output register 


E6 DF 


8A 






TXA 




error nuinber in accumula tor 




z u 


UD 




U oi\ 


$E706 


error message in uuiicl 


E6E3 


A9 


2C 




LDA 


#$2C 


1 f 1 comma 


E6B5 


91 


A5 




STA 


($A5) ,Y 


write in uuiier 


E6E7 


C8 






INY 




a nu inclement uuiicl pu in tci 


E6E8 


A5 


80 




LDA 


$80 


fraflf ruiTnhoy* 


E6EA 


20 


9B 


E6 


JSR 


$E69B 


to nOLl 1 cailU III UULLcl 


E6ED 


A9 


2C 




LDA 


#$2C 


f v., ultima 


E6EF 


91 


A5 




STA 


( $A5 ) , Y 


Mr i in hi if f pr 


E6F1 


C8 






INY 




increment uuilcl puiiitcL 


E6F2 


A5 


81 




LDA 


$81 


sec tor 


E6F4 


20 


9B 


E6 


JSR 


SE69B 


convert to Aot.ii anu in uuiiej. 


E6F7 


88 






DEY 






E6F8 


98 






TYA 






E6F9 


18 






CLC 






E6FA 


69 


D5 




ADC 


#$D5 




E6FC 


8D 


49 


02 


STA 


$0249 


enu po iiitcL 


E6FF 


E6 


A5 




INC 


$A5 




E701 


A9 


88 




LDA 


#$88 


«;pt" RPAn flan 


E703 


85 


F7 




STA 


$F7 




E705 


60 






RTS 






****************************** 


write cllUl iHcaoayc to uul i*s i 


E706 


AA 






TAX 




error coue to a 


E707 


A5 


86 




LDA 


$86 




E709 


48 






PHA 




preserve pointer $8 6/$ 8 7 


E70A 


A5 


87 




LDA 


$87 




E70C 


48 






PHA 






E70D 


A9 


FC 




LDA 


#$FC 




E70F 


85 


86 




STA 


#?E4 


start of the error messages 


E713 


85 


87 




STA 


$87 




E715 


8A 






TXA 




error number in accumulator 


E716 


A2 


00 




LDX 


#$00 




E718 


CI 


86 




CMP 


($86, X) 


compare with error no in table 
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F7 1 A 


F U 


1 




BEO 


$E73D 


Ei 1 IK* 


A 






PHA 




F7 1 n 

El / ± U 


on 




E7 


JSR 


$E775 


E7 20 




AC 
Uj 




BCC 


$E727 


a I £,£. 


on 


1 O 


IT*7 

L / 


JSR 


$E775 


E7 25 


90 






BCC 


$E722 


E7 27 


AD 


9.1 




LDA 


$87 


E729 


C9 






CMP 


#$E6 


E72B 


90 


08 




BCC 


$E735 


E72D 


DO 


OA 




BNE 


$E739 


E72F 


AO 


OA 




LiUt\ 


ff ■? UA 


E731 


C5 


86 






C Q C 
POD 


E733 


90 


04 




DPP 

DLL 




E735 


68 










E736 


4C 


18 


E7 


TMD 


ep7 i p 

v> Cj / J. o 


E739 


68 






or a 




E73A 






Ei / 


JMP 


SE74D 


E73D 


20 


67 


E7 


7 CD 
J OK 


V Ei / D / 


E7 40 


Qfi 
y u 


PD 

r o 




BCC 


$E73D 


E742 


20 


54 


E7 


JSR 


SE754 


E745 


20 


67 


E7 


JST 


$E767 


E748 


90 


F8 




BCC 


$E742 


E74A 


20 


54 


E7 


JSR 


SE754 


E74D 


68 






PLA 




E74E 


85 


87 




STA 


$87 


E750 


68 






PLA 




E751 


85 


86 




STA 


$86 


E753 


60 






RTS 




***************************** 


E754 


C9 


20 




CMP 


#$20 


E756 


B0 


0B 




BCS 


$E763 


E758 


AA 






TAX 




E759 


A9 


20 




LDA 


#$20 


E75B 


91 


A5 




STA 


($A5) ,Y 


E75D 


C8 






INY 


E7 5E 


8A 






TXA 




E75F 


20 


06 


E7 


JSR 


SE706 


E762 


60 






RTS 




E763 


91 


A5 




STA 


( $A5 ) , Y 


E765 


C8 






INY 




E766 


60 






RTS 




*****************************, 


E767 


E6 


86 




INC 


$86 


E769 


DO 


02 




BNE 


$E76D 


E76B 


E6 


87 




INC 


$87 


E76D 


Al 


86 




LDA 


($86, X) 


E76F 


OA 






ASL 


A 


E770 


Al 


86 




LDA 


($86, X) 


E772 


29 


7F 




AND 


#$7F 


E774 


60 






RTS 





****************************** 



bit 7 into carry and erase 
not set? 

bit 7 into carry 

wait for character with bit 7 set 



$E60A, check to end of table 



no, continue 
done 

get a character, bit 7 in carry 

wait for character with bit 7 set 

and write in buffer 

get next character 

wait for character with bit 7 set 

put character in buffer 



get pointer $86/$87 back 



get character and in buffer 
' ' blank 

greater, then write in buffer 

save code 

blank 

write in buffer 
increment buffer pointer 
code in accumulator 
output previous text 

write character in buffer 
and increment pointer 



get a char of the error message 

increment pointer 

get character 
bit 7 into carry 
get character 
erase bit 7 



increment pointer 
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E775 


20 


6D 


E7 


JSR 


$E76D 


bit 7 into carry 


E778 


E6 


86 




INC 


$86 




E77A 


DO 


02 




BNE 


$E77E 


increment pointer 


E77C 


E6 


87 




INC 


$87 




E77E 


60 






RTS 






****************************** 




E77F 


60 






RTS 






****************************** 




E780 


AD 


00 


18 


LDA 


$1800 


rcaO XEfCiCt purt 


E783 


AA 






TAX 






E784 


29 


04 




AND 


#$04 




E786 


F0 


F7 




BEC- 


$E77F 


not set r then done 


E788 


8A 






TXA 






E789 


29 


01 




AND 


#$01 


isolate Unlo i.w uil 


E78B 


F0 


F2 




BEO 


$E77F 


not set t uiicii uuiie 


E78D 


58 






CLI 






E78E 


AD 


00 


18 


LDA 


$1800 


load IEEE port 


E791 


29 


05 




AND 


#$05 


test data in ana cluuk in 


E793 


F0 


F9 




BNE 


$E78E 


wa 1 1 unt i j. DOtn sec 


E795 


EE 


78 


02 


INC 


$0278 


x 1 le nctnic 


E798 


EE 


74 


02 


INC 


$0274 


end rat lei xii tiic xiiljuu xx 1 ie 


E79B 


A9 


2A 




LDA 


#$2A 


a a 1 1 icn aii'c 


E79D 


8D 


00 


02 


STA 


$0200 


WLltC XII UULJ.CL 


E7A0 


4C 


A8 


E7 


JMP 


$E7A8 




****************************** 


' & * — pfiinmanri 


E7A3 


A9 


8D 




LDA 


#S8D 




E7A5 


20 


68 


C2 


JSR 


SC268 


phpfiU rnmifianri 1 i t*o ^nd 


E7A8 


20 


58 


F2 


JSR 


$F258 


( PT^I 
k i\ X o / 


E7AB 


AD 


78 


02 


LDA 


$0278 


n i iinhp y r,F fi 1 p naTnpc; 

IIUUiUCl VJX i- 1 J.v iiamco 


E7AE 


48 






PHA 




save 


E7AF 


A9 


01 




LDA 


#$01 




E7B1 


8D 


78 


02 


STA 


$0278 


flip namp 


E7B4 


A9 


FF 




LDA 


#$FF 




E7B6 


85 


86 




STA 


$86 




E7B8 


20 


4F 


C4 


JSR 


$C44F 


x i nu x x xe 


E7BB 


AD 


80 


02 


LDA 


$0280 




E7BE 


DO 


05 




BNE 


SE7C5 


louno : 


E7C0 


A9 


39 




LDA 


#$39 




E7C2 


20 


C8 


CI 


JSR 


$C1C8 


f £116 nut LUUl iu 


E7C5 


68 






PLA 






E7C6 


8D 


78 


02 


STA 


$0278 


/I *"\ 4- m imKA v- /*\ f flirt 21 TY1 A C Kaplf 

get nurnDer ox me net idea udtis. 


E7C9 


AD 


80 


02 


LDA 


$0280 




E7CC 


85 


80 




STA 


$80 


track 


E7CE 


AD 


85 


02 


LDA 


$0285 




E7D1 


85 


81 




STA 


$81 


and sector 


E7D3 


A9 


03 




LDA 


#$03 


file type 'USR' 


E7D5 


20 


77 


D4 


JSR 


$D477 


buffer allocated, read 1st block 


E7D8 


A9 


00 




LDA 


#$00 




E7DA 


85 


87 




STA 


$87 


erase checksum 


E7DC 


20 


39 


E8 


JSR 


$E839 


get byte from file 


E7DF 


85 


88 




STA 


$88 


save as start address lo 


E7E1 


20 


4B 


E8 


JSR 


SE84B 


form checksum 
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E7E4 


20 


39 


E8 


JSR 


$E839 


E7E7 


85 


89 




STA 


$89 


E7E9 


20 


4B 


E8 


JSR 


$E84B 


E7EC 


A5 


86 




LDA 


$86 


E7EE 


F0 


OA 




BEO 


$E7 FA 


E7F0 


A5 


88 




LDA 


$88 


E7F2 


48 






PHA 




E7F3 


A5 


89 




LDA 


$89 


E7F5 


48 






PHA 






A9 


00 




LDA 


#$00 


E7F8 


85 


86 




STA 


$86 


E7 FA 


20 


39 


E8 


JSR 


$E839 


E7FD 


85 


8A 




STA 


$8A 


nT nn 

ti 1 r r 


20 


4B 


E8 


JSR 


$E84B 




on 


39 


E8 


JSR 


$E839 


E80 5 


AO 


00 




LDY 


#$00 


E807 


91 


88 




STA 


($88) ,Y 


pp no 


on 


4B 


E8 


JSR 


$E84B 


CjO UL, 


A5 


88 




LDA 


$88 


E80E 


18 






CLC 




E80F 


69 


01 




ADC 


#$01 


PQ 1 1 




88 




STA 


$88 


E8 13 


90 


02 




BCC 


$E817 


DO 1 C 
CiO ID 


E6 


89 




INC 


$89 


CO 1 *7 
GO X 1 


C6 


8A 




DEC 


$8A 


ClO 1 7 


DO 


E7 




BNE 


$E802 


E81B 


20 


35 


CA 


JSR 


$CA35 


E81E 


A5 


85 




LDA 


$85 


E820 


C5 


87 




CMP 


$87 


E8 22 


F0 


08 




BEQ 


$E82C 


E8 24 


20 


3E 


DE 


JSR 


SDE3E 


E8 27 


A9 


50 




LDA 


#$50 


E8 29 


20 


45 


E6 


JSR 


$E645 


E8 2C 


A5 


P8 




LDA 


$F8 


CiO Z Ci 


r\n 
DU 


A8 




BNE 


$E7D8 


CiO JU 


O 






PLA 




DO O 1 


O D 


89 




STA 


$89 




68 






PLA 




E834 


85 


88 




STA 


$88 


PP. 


DL 


8 8 


00 


JMP 


( $0088 ) 


E839 


20 


35 


CA 


JSR 


$CA35 


E83C 


A5 


F8 




LDA 


$F8 


E83E 


DO 


08 




BNE 


$E848 


E840 


20 


3E 


DE 


JSR 


$DE3E 


E843 


A9 


51 




LDA 


#$51 


E845 


20 


45 


E6 


JSR 


SE645 


E848 


A5 


85 




LDA 


$85 


E84A 


60 






RTS 





get byte from file 
as start address hi 
form checksum 



save program start address 



get byte from file 
save as counter 
form checksum 
get byte from file 

save as program bytes 
form checksum 



increment $88/$89 



decrement pointer 

get next byte 
data byte 

equal to checksum? 
yes 

transmit param to disk controller 

50, 'record not present' 
end? 

no, next data block 



get program start address back 

and execute program 
get byte from file 
end? 
no 

transmit param to disk controller 

51, 'overflow in record' 
data byte 



rate checksum 



****************************** gene 
E84B A8 CLC 
E84C 65 87 ADC $87 

E84E 69 00 ADC #$00 

E850 85 87 STA $87 

E852 60 RTS 
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****************************** 


IRO routine for serial bus 


E853 


AD 


01 


18 


LDA $1801 


read port A r erase IRQ flag 


E856 


A9 


01 




LDA #$01 




E858 


85 


7C 




STA $7C 


set flag for ' ATN received' 


E85A 


60 






RTS 




****************************** 


servicing the serial bus 


E8 5B 


78 






SEI 




E85C 


A9 


00 




LDA #$00 


erase flag for 'ATN received 


E85E 


85 


7C 




STA $7C 


E860 


85 


79 




STA $79 


erase flag for LISTEN 


E862 


85 


7A 




STA $7A 


erase flag for TALK 


E864 


A2 


45 




LDX #$45 




E8 6 6 


9A 






TXS 


initialize stack pointer 


E8 67 


A9 


80 




LDA #$80 




E869 


85 


F8 




STA $F8 


erase end flag 


E86B 


85 


7D 




STA $7D 


erase EOI flag 


E86D 


20 


B7 


E9 


JSR $E9B7 


CLOCK OUT lo 


E870 


20 


A5 


E9 


JSR $E9A5 


DATA OUT, bit '0' , hi 


E873 


AD 


00 


18 


LDA $1800 


switch data lines to input 


E876 


09 


10 




ORA #$10 


E878 


8D 


00 


18 


STA $1800 




E87B 


AD 


00 


18 


LDA $1800 


read IEEE port 


E87E 


10 


57 




BPL $E8D7 


EOI? 


E880 


29 


04 




AND #$04 


CLOCK IN? 


E882 


DO 


F7 




BNE $E87B 


no 


E884 


20 


C9 


E9 


JSR $E9C9 


get byte from bus 


E887 


C9 


3F 




CMP #$3F 


unlisten? 


E889 


DO 


06 




BNE $E891 


no 


E88B 


A9 


00 




LDA #$00 




E88D 


85 


79 




STA $79 


reset flag for LISTEN 


E88P 


F0 


71 




BEO $E902 




FAQ 1 


C9 


5F 




CMP #$5F 


untalk? 


E893 


DO 


06 




BNE $E89B 


no 


E895 


A9 


00 




LDA #$00 




E897 


85 


7A 




STA $7A 


reset flag for TALK 




r u 


67 








E89B 


C5 


78 




CMP $78 


TALK address? 


E89D 


DO 


OA 




BNE $E8A9 


no 


E89F 


A9 


01 




LDA #$01 




E8A1 


85 


7A 




STA $7A 


set flag for TALK 


E8A3 


A9 


00 




LDA #$00 




E8A5 


85 


79 




STA $79 


reset flag for LISTEN 


E8A7 


F0 


29 




BEO $E8D2 




E8A9 


C5 


77 




CMP $77 


LISTEN address? 


E8AB 


DO 


OA 




BNE $E8B7 


no 


E8AD 


A9 


01 




LDA #$01 




E8AF 


85 


79 




STA $79 


set flag for LISTEN 


E8B1 


A9 


00 




LDA #$00 




E8B3 


85 


7A 




STA $7A 


reset flag for TALK 


E8B5 


F0 


IB 




BEO SE8D2 




E8B7 


AA 






TAX 




E8B8 


29 


60 




AND #$60 




E8BA 


C9 


60 




CMP #$60 


set bit 5 and 6 
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no 

byte is secondary address 
channel number 

CLOSE? 

CLOSE routine 

set EOI 
IEEE port 

switch data lines to output 



E8BC 


DO 


3F 




BNE 


S F8 pn 
v CiO r u 


E8BE 


8A 






TXA 




E8BF 


85 


84 




STA 


s» O ft 


E8C1 


29 


OF 




awn 




E8C3 


85 


83 




STA 


$83 


E8C5 


A5 


84 




LDA 


$84 


E8C7 


29 


F0 




AND 


ft<5pn 


E8C9 


C9 


E0 




CMP 




E8CB 


DO 


35 




BNE 


$E902 


E8CD 


58 






CLI 




E8CE 


20 


CO 


DA 


JSR 


$ DAC0 


E8D1 


78 






SEI 




E8D2 


2C 


00 


18 


BIT 


$1800 


E8D5 


30 


AD 




BMI 


$E884 


E8D7 


A9 


00 




LDA 


#$00 


E8D9 


85 


7D 




STA 


$7D 


E8DB 


AD 


00 


18 


LDA 


$ 1800 


E8DE 


29 


EF 




AND 


#$EF 


E8E0 


8D 


00 


18 


STA 


$1800 


E8E3 


A5 


79 




LDA 


$79 


E8E5 


F0 


06 




BEO 


$E8ED 


E8E7 


20 


2E 


EA 


JSR 


$EA2E 


E8EA 


4C 


E7 


EB 


JMP 


$EBE7 


E8ED 


A5 


7A 




LDA 


$7A 


E8EF 


F0 


09 




BEO 


$E8FA 


E8F1 


20 


9C 


E9 


JSR 


$E99C 


E8F4 


20 


AE 


E9 


JSR 


$E9AE 


E8F7 


20 


09 


E9 


JSR 


$E909 


E8FA 


4C 


4E 


EA 


JMP 


$EA4E 


E8FD 


A9 


10 




LDA 


#$10 


E8FF 


8D 


00 


18 


STA 


$1800 


E902 


2C 


00 


18 


BIT 


$1800 


E905 


10 


DO 




BPL 


$E8D7 


E907 


30 


F9 




BMI 


$E902 


**************************** 


E909 


78 






SEI 




E90A 


20 


EB 


DO 


JSR 


$D0EB 


E90D 


B0 


06 




BCS 


$E915 


E90F 


A6 


82 




LDX 


$82 


E911 


B5 


F2 




LDA 


$F2 r X 


E913 


30 


01 




BMI 


SE916 


E915 


60 






RTS 




E916 


20 


59 


EA 


JSR 


$EA59 


E919 


20 


CO 


E9 


JSR 


$E9C0 


E91C 


29 


01 




AND 


#$01 


E91E 


08 






PHP 




E91F 


20 


B7 


E9 


JSR 


SE9B7 


E922 


28 






PLP 




E9 23 


F0 


12 




BEO 


SE937 


E925 


20 


59 


EA 


JSR 


$EA59 


E928 


20 


CO 


E9 


JSR 


$E9C0 


E92B 


29 


01 




AND 


#$01 


E92D 


DO 


F6 




BNE 


$E925 



LISTEN active? 
no 

receive data 
to delay loop 

TALK active? 
no 

DATA OUT, bit '1', lo 

CLOCK OUT hi 

send data 

to delay loop 

either TALK or LISTEN, ignore byte 
switch data lines to input 



wait for handshake 
send data 

open channel for read 
channel active 
channel number 
set READ flag? 
yes 

check EOI 
read IEEE port 
isolate data bit 
and save 
CLOCK OUT lo 



check EOI 
read IEEE port 
isolate data bit 
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E92F 


A6 


82 




LDX 


$82 


channel number 




E931 


B5 


F2 




LDA 


$F2,X 






E933 


29 


08 




AND 


#$08 






E935 


DO 


14 




BNE 


$E94B 






E937 


20 


59 


EA 


JSR 


$EA59 


check EOI 




E93A 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE port 




E93D 


29 


01 




AND 


#$01 


isolate data bit 




E93F 


DO 


F6 




BNE 


$E937 






E941 


20 


59 


EA 


JSR 


$EA59 


check EOI 




E944 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE port 




E947 


29 


01 




AND 


#$01 


isolate data bit 




E949 


F0 


F6 




BEQ 


$E941 






E84B 


20 


AE 


E9 


JSR 


$E9AE 


CLOCK OUT hi 




E94E 


20 


59 


EA 


JSR 


$EA59 


check EOI 




E951 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE port 




E954 


29 


01 




AND 


#$01 


isolate data bit 




E956 


DO 


F3 




BNE 


SE94B 






E958 


A9 


08 




LDA 


#$08 


counter to 8 bits 


for serial 


E95A 


85 


98 




STA 


$98 


transmission 




E95C 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE port 




E95F 


29 


01 




AND 


#$01 


isolate data bit 




E961 


DO 


36 




BNE 


$E999 






E963 


A6 


82 




LDX 


$82 






E965 


BD 


3E 


02 


LDA 


$023E,X 






E968 


6A 






ROR 


A 


lowest bit in carry 


E969 


9D 


3E 


02 


STA 


$023E,X 






E96C 


BO 


05 




BCS 


$E973 


set bit 




E96E 


20 


A5 


E9 


JSR 


$E9A5 


DATA OUT, output 


bit '0' 


E971 


DO 


03 




BNE 


$E976 


absolute jump 




E973 


20 


9C 


E9 


JSR 


$E99C 


DATA OUT, output 


bit ' 1' 


E976 


20 


B7 


E9 


JSR 


$E9B7 


set CLOCK OUT 




E979 


A5 


23 




LDA 


$23 






E97B 


DO 


03 




BNE 


$E980 






E97D 


20 


F3 


FE 


JSR 


$FEF3 


delay for serial 


bus 


E980 


20 


FB 


FE 


JSR 


$FEFB 


set DATA OUT and 


CLOCK OUT 


E983 


C6 


98 




DEC 


$98 


all bits output? 




E985 


DO 


D5 




BNE 


$E95C 


no 




E987 


20 


59 


EA 


JSR 


$EA59 


check EOI 




E98A 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE port 




E98D 


29 


01 




AND 


#$01 


isolate data bit 




E98F 


FO 


F6 




BEQ 


$E987 






E991 


58 






CLI 








E992 


20 


AA 


D3 


JSR 


$D3AA 


get next data byte 


E995 


78 






SEI 








E996 


4C 


OF 


E9 


JMP 


$E90F 


and output 




E999 


4C 


4E 


EA 


J MP 


$EA4E 


to delay loop 




****************************** 


DATA OUT lo 




E99C 


AD 


00 


18 


LDA 


$1800 






E99F 


29 


FD 




AND 


#$FD 


output bit '!• 




E9A1 


8D 


00 


18 


STA 


$1800 






E9A4 


60 






RTS 









****************************** DATA OUT hi 
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E9A5 AD 00 18 LDA $1800 

E9A8 09 02 ORA #$02 

E9AA 8D 00 18 . STA $1800 

E9AD 60 RTS 

****************************** 
E9AE AD 00 18 LDA $1800 
E9B1 09 08 ORA #$08 

E9B3 8D 00 18 STA $1800 
E9B6 60 RTS 

****************************** 

E9B7 AD 00 18 LDA $1800 

E9BA 29 F7 AND #$F7 

E9BC 8D 00 18 STA $1800 

E9BF 60 RTS 

****************************** 

E9C0 AD 00 18 LDA $1800 

E9C3 CD 00 18 CMP $1800 

E9C6 DO F8 BNE $E9C0 

E9C8 60 RTS 

****************************** 



output bit '0' 

CLOCK OUT hi 
set bit 3 

CLOCK OUT lo 
erase bit 3 



read IEEE port 
read port 

wait for constants 



E9C9 


A9 


08 




LDA 


#$08 




E9CB 


85 


98 




STA 


$98 


bit counter for serial output 


E9CD 


20 


59 


EA 


JSR 


$EA59 


check EOI 


E9D0 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE port 


E9D3 


29 


04 




AND 


#$04 


CLOCK IN? 


E9D5 


DO 


F6 




BNE 


$E9CD 


no, wait 


E9D7 


20 


9C 


E9 


JSR 


$E99C 


DATA OUT, bit 1 1" 


E9DA 


A9 


01 




LDA 


#$01 




E9DC 


8D 


05 


18 


STA 


$1805 


set timer 


E9DF 


20 


59 


EA 


JSR 


$EA59 


check EOI 


E9E2 


AD 


0D 


18 


LDA 


$180D 




E9E5 


29 


40 




AND 


#$40 


timer run down? 


E9E7 


DO 


09 




BNE 


$E9F2 


yes, EOI 


E9E9 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE port 


E9EC 


29 


04 




AND 


#$04 


CLOCK IN? 


E9EE 


F0 


EF 




BEQ 


$E9DF 


no, wait 


E9F0 


DO 


19 




BNE 


$EA0B 




E9F2 


20 


A5 


E9 


JSR 


$E9A5 


DATA OUT bit '0' hi 


E9F5 


A2 


OA 




LDY 


#$0A 


10 


E9F7 


CA 






DEX 




delay loop, approx 50 micro sec. 


E9F8 


DO 


FD 




BNE 


$E9F7 


E9FA 


20 


9C 


E9 


JSR 


$E99C 


DATA OUT, bit ' 1' , lo 


E9FD 


20 


59 


EA 


JSR 


$EA59 


check EOI 


EA00 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE 


EA03 


29 


04 




AND 


#$04 


CLOCK IN? 


EA05 


F0 


F6 




BEO 


SE9FD 


no, wait 


EA07 


A9 


00 




LDA 


#$00 




EA09 


85 


F8 




STA 


$F8 


set EOI flag 


EA0B 


AD 


00 


18 


LDA 


$1800 


IEEE port 


EA0E 


49 


01 




EOR 


#$01 


invert data byte 


EA10 


4A 






LSR 


A 
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pall 




02 




AND 


#S02 




p a 1 "3 


no 
U\J 


r o 








CX ClCK TN? 

l_j V- IX J- 1 1 » 


BA15 


EA 






NOP 






EA16 


EA 






NOP 






EA1 / 


EA 






HAD 






pal ft 


66 


85 




ROR 


$85 


prepare next bit 


EA1A 


20 


59 


EA 


JSR 


$EA59 


check EOl 


EA1D 


20 


CO 


E9 


JSR 


$E9C0 


read IEEE port 


EA20 


29 


04 




AND 


#$04 


PTOCK TN? 


EA22 


F0 


F6 




BEQ 


$EA1A 


no 


EA24 


C6 


98 




DEC 


$98 


decrement bit counter 


EA26 


DO 


E3 




BNE 


$EA0B 


all bits output? 


EA28 


20 


A5 


E9 


JSR 


SE9A5 


DATA OUT, bit 1 1 , hi 


EA2B 


A5 


85 




LDA 


$85 


load data byte again 


EA2D 


60 






RTS 






****************************** 


accept data from serial 


EA2E 


78 






SEI 




open channel for writing 


EA2F 


20 


07 


Dl 


JSR 


$D107 


EA32 


B0 


05 




BCS 


$EA39 


channel not active? 


EA34 


B5 


F2 




LDA 


$F2,X 


WRITE flag 


EA36 


6A 






ROR 


A 




EA37 


B0 


0B 




BCS 


$EA44 


not set? 


EA39 


A5 


84 




LDA 


$84 


secondary address 


EA3B 


29 


F0 




AND 


#$F0 




EA3D 


C9 


F0 




CMP 


#$F0 


OPEN command? 


EA3F 


F0 


03 




BEQ 


$EA44 


yes 


EA41 


4C 


4E 


EA 


JMP 


$EA4E 


to wait loop 


EA44 


20 


C9 


E9 


JSR 


$E9C9 


get data byte from bus 


EA47 


58 






CLI 






EA48 


20 


B7 


CF 


JSR 


$CFB7 


and write in buffer 


BA4B 


4C 


2E 


EA 


JMP 


$EA2E 


*- f\ i Ann Hon i nni nn 


EA4E 


A9 


00 




LDA 


#$00 




EA50 


8D 


00 


18 


STA 


$1800 


reset IEEE port 


EA53 


4C 


E7 


EB 


JMP 


$EBE7 


to wait loop 


EA56 


4C 


5B 


E8 


JMP 


$EB58 


to serial bus main loop 


****************************** 




EA59 


A5 


7D 




LDA 


$7D 


EOI received? 


EA5B 


F0 


06 




BEO 


$EA63 


yes 


EA5D 


AD 


00 


18 


LDA 


$1800 


IEEE port 


EA60 


10 


09 




BPL 


SEA6B 




EA62 


60 






RTS 






EA63 


AD 


00 


18 


LDA 


$1800 


IEEE port 


EA66 


10 


FA 




BPL 


$EA62 


set EOI, serve serial bi 


EA68 


4C 


D7 


E8 


JMP 


$E8D7 



****************************** blink LED for hardware defects 
EA6E A2 00 LDX #$00 blink once, zero page 

EA70 2C .BYTE $2C 
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EA71 


A5 


6F 




LDX 


$6F 


EA73 


9A 






TXS 




EA74 


BA 






TSX 




EA75 


A9 


08 




LDA 


IT ■? U O 


EA77 


OD 


00 


1C 


ORA 


$1C00 


EA7A 


4C 


EA 


FE 


JMP 


$FEEA 


EA7D 


98 






TYA 




EA7E 


18 






CLC 




EA7F 


69 


01 




ADC 


#$01 


EA81 


DO 


FC 




BNE 


$EA7F 


EA83 


88 






DEY 




EA84 


DO 


F8 




BNE 


SEA7E 


EA86 


AD 


00 


1C 


LDA 


$1COO 


EA89 


29 


F7 




AND 


#$F7 


EA8B 


8D 


00 


1C 


STA 


$1C00 


EA8E 


98 






TYA 




EA8F 


18 






CLC 




EA90 


69 


01 




ADC 


#$01 


EA92 


DO 


FC 




BNE 


$EA90 


EA94 


88 






DEY 




EA95 


DO 


F8 




BNE 


SEA8F 


EA97 


CA 






DEX 




EA98 


10 


DB 




BPL 


$EA75 


EA9A 


EO 


FC 




CPX 


#$FC 


EA9C 


DO 


FO 




BNE 


$EA8E 


EA9E 


FO 


D4 




BEO 


$EA74 


*************************** 


EAAO 


78 






SEI 




EAA1 


D8 






CLD 




EAA2 


A2 


FF 




LDX 


#$FF 


EAA4 


8E 


03 


18 


STX 


$1803 


EAA7 


E8 






INX 




EAA8 


AO 


00 




LDY 


#$00 


EAAA 


A2 


00 




LDX 


#$00 


EAAC 


8A 






TXA 




EAAD 


95 


00 




STA 


$00, X 


EAAF 


E8 






INX 




EABO 


DO 


FA 




BNE 


SEAAC 


EAB2 


8A 






TXA 




EA63 


D5 


00 




CMP 


$00, X 


EAB5 


DO 


B7 




BNE 


$EA6E 


EAB7 


F6 


00 




INC 


$00, X 


EAB9 


C8 






I NY 




EABA 


DO 


FB 




BNE 


$EAB7 


EABC 


D5 


00 




CMP 


$00, X 


EABE 


DO 


AE 




BNE 


SEA6E 


EACO 


94 


00 




STY 


$00, X 


EAC2 


B5 


00 




LDA 


$00, X 


EAC4 


DO 


A8 




BNE 


$EA6E 


EAC6 


E8 






INX 




EAC7 


DO 


E9 




BNE 


$EAB2 


EAC9 


E6 


6F 




INC 


$6F 


EACB 


86 


76 




STX 


$76 


EACD 


A9 


00 




LDA 


#$00 



blink X+l times for RAM/ROM err 

select LED bit in the port 
turn LED on, back to $EA7D 

i 
! 

turn LED off 

j 

delay loop 

wait for delay 
turn LED on again 

RESET routine 
port A to output 

erase zero page 
is byte erased? 

no, then to error display (blink) 

error 
error 
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EACF 


85 


75 




STA 


$75 


EAD1 


A8 






TAY 




EAD2 


A2 


20 




LDX 


#$20 


EAD4 


18 






CLC 




EAD5 


C6 


76 




DEC 


$76 


EAD7 


71 


75 




ADC 


($75) ,Y 


EAD9 


C8 






INY 




EADA 


DO 


FB 




BNE 


$EAD7 


EADC 


CA 






DEX 




EADD 


DO 


F6 




BNE 


$EAD5 


EADF 


69 


00 




ADC 


#$00 


EAE1 


AA 






TAX 




EAE2 


C5 


76 




CMP 


$76 


EAE4 


DO 


39 




BNE 


$EB1F 


EAE6 


EO 


CO 




CPX 


#$C0 


EAE8 


DO 


DF 




BNE 


$EAC9 


EAEA 


A9 


01 




LDA 


#$01 


EAEC 


85 


76 




STA 


$76 


EAEE 


E6 


6F 




INC 


$6F 


EAFO 


A2 


07 




LDX 


#$07 


EAF2 


98 






TYA 




EAF3 


18 






CLC 




EAF4 


65 


76 




ADC 


$76 


EAF6 


91 


75 




STA 


($75) ,Y 


EAF8 


C8 






INY 




EAF9 


DO 


F7 




BNE 


$EAF2 


EAFB 


E6 


76 




INC 


$76 


EAFD 


CA 






DEX 




EAFE 


DO 


F2 




BNE 


$EAF2 


EBOO 


A2 


07 




LDX 


#$07 


EB02 


C6 


76 




DEC 


$76 


EB04 


88 






DEY 




EB05 


98 






TYA 




EB06 


18 






CLC 




EB07 


65 


76 




ADC 


$76 


EB09 


Dl 


75 




CMP 


($75) ,Y 


EBOB 


DO 


12 




BNE 


SEB1F 


EBOD 


49 


FF 




EOR 


#$FF 


EBOF 


91 


75 




STA 


($75), Y 


EB11 


51 


75 




EOR 


($75) ,Y 




Q 1 


/ 




STA 


(575) t Y 


EB15 


DO 


08 




BNE 


$EB1F 


EB17 


98 






TYA 




EB18 


DO 


EA 




BNE 


$EB04 


EB1A 


CA 






DEX 




EB1B 


DO 


E5 




BNE 


$EB02 


EB1D 


FO 


03 




BEQ 


$EB22 


EB1F 


4C 


71 


EA 


JMP 


$EA71 


EB22 


A2 


45 




LDX 


#$45 


BB24 


9A 






TXS 




EB25 


AD 


00 


1C 


LDA 


$1C00 


EB28 


29 


F7 




AND 


#$F7 


EB2A 


8D 


00 


1C 


STA 


$1COO 


EB2D 


A9 


01 




LDA 


#$01 



test 32 pages 



test ROM 



ROM error 



test RAM, beginning at page 



RAM error 



RAM error 



continue test 
ok 

to error display 



initialize stack pointer 
turn LED off 
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EB2F 


8D 


OC 


18 


STA 


$180C 


EB32 


A9 


82 




LDA 


#$82 


EB34 


8D 


0D 


18 


STA 


$180D 


EB37 


8D 


0E 


18 


STA 


$180E 


EB3A 


AD 


00 


18 


LDA 


$1800 


EB3D 


29 


60 




AND 


#$60 


EB3F 


OA 






ASL 


A 


EB40 


2A 






ROL 


A 


EB41 


2A 






ROL 


A 


EB42 


2A 






ROL 


A 


EB4 3 


09 


48 




ORA 


#$48 


EB45 


85 


78 




STA 


$78 


EB47 


49 


60 




EOR 


#$60 


EB49 


85 


77 




STA 


$77 


EB4B 


A2 


00 




LDX 


#$00 


EB4D 


AO 


00 




LDY 


#$00 


EB4F 


A9 


00 




LDA 


#$00 


EB51 


95 


99 




STA 


$99 ,X 


dDj j 


E8 






I NX 






B9 


E0 


FE 


LDA 


$FEE0 , Y 


EB57 


95 


99 




STA 


$99 ,X 


EB59 


E8 






I NX 




EB5A 


C8 






INY 




EB5B 


CO 


05 




CPY 


#$05 


EB5D 


DU 


F0 




BNE 


$EB4F 


EB5P 


A9 


00 




LDA 


#$00 


EB6 1 


95 


99 




STA 


$99 ,X 


EBB 3 


E8 






I NX 




EB64 


A9 


02 




LDA 


#$02 


CjDO o 


Q R 

3J 


nn 

yy 




STA 


$99 ,X 


tiDDO 


CiO 






I NX 






A Q 

Ay 


D5 




LDA 


#$D5 


DO CD 

CiO DD 




yy 




STA 


$99 ,X 


EB6 D 


E8 






INX 




EB6E 


a? 


02 




LDA 


#$02 


EB70 


95 


99 




STA 


$99 ,X 


CjD / Z 


AO 

Ay 


FF 




LDA 


#$FF 


EB7 4 


A2 


12 




LDX 


#$12 


EB76 


on 

yD 


2B 


02 


STA 


?022B,X 


EB79 


CA 






DEX 




bB / A 


10 


FA 




BPL 


$EB76 


EB7C 


A2 


05 




LDX 


#$05 


EB7E 


95 


A7 




STA 


$A7 ,X 


EB80 


95 


AE 




STA 


$AE ,X 


EB82 


95 


CD 




STA 


$CD,X 


EB84 


CA 






DEX 




EB85 


10 


F7 




BPL 


$EB7E 


EB8 7 


AG 

Ay 






LDA 


#$05 


EB89 


85 


AB 




STA 


$AB 


EB8B 


A9 


06 




LDA 


#$06 


EB8D 


85 


AC 




STA 


$AC 


EB8F 


A9 


FF 




LDA 


#$FF 


EB91 


85 


AD 




STA 


$AD 


EB93 


85 


B4 




STA 


$B4 


EB95 


A9 


05 




LDA 


#$05 



CA1 (ATN IN) trigger on pos edge 
interrupt possible through ATN IN 
read port B 

isolate bits 5 & 6 (device #) 

rotate to bit positions & 1 

add offset from 8 + $40 for TALK 
device number for TALK (send) 
erase bit 6, set bit 5 
device number + $20 for LISTEN 



low-byte of buffer address 

high byte of address from table 
save 



ptr $A3/$A4 to $200, input buffer 



pointer $A5/$A6 to $2D5, error 
message pointer 



fill channel table with $FF 

erase buffer table 
erase side-sector table 



buffer 5 

associate with channel 4 
buffer 6 

associate with channel 5 
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EB97 


8D 


3B 


02 


STA $023B 


channel 5 WRITE flag erased 


EB9A 


A9 


84 




LDA #$84 




EB9C 


8D 


3A 


02 


STA $023A 


channel 4 WRITE flag set 


EB9F 


A9 


OF 




LDA #$0F 


initialize channel allocation reg 


EBA1 


8D 


56 


02 


STA $0256 


bit '1' equals channel free 


EBA4 


A9 


01 




LDA #$01 




EBA6 


85 


F6 




STA $F6 


WRITE flag 


EBA8 


A9 


88 




LDA #$88 




EBAA 


85 


F7 




STA $F7 


READ flag 


EBAC 


A9 


FO 




LDA #$E0 


5 buffers free 


EBAE 


8D 


4F 


02 


STA $024F 


initialize buffer allocation reg 


EBB1 


A9 


FF 




LDA #$FF 


$24F/$250, 16 bit 


EBB3 


8D 


50 


02 


STA $0250 




EBB6 


A9 


01 




LDA #$01 




EBB8 


85 


1C 




STA $1C 


flags for WRITE protect 


EBBA 


85 


ID 




STA $1D 




EBBC 


20 


63 


CB 


JSR $CB63 


set vector for U0 


EBBF 


20 


FA 


CE 


JSR $CEFA 


initialize channel table 


EBC2 


20 


59 


F2 


JSR $F259 


intialization for disk controller 


EBC5 


A9 


22 




LDA #$22 




EBC7 


85 


65 




STA $65 




EBC9 


A9 


EB 




LDA #$EB 


pointer $65/$66 to $EB22 


EBCB 


85 


66 




STA $66 




EBCD 


A9 


OA 




LDA #$0A 




EBCF 


85 


69 




STA $69 


step width 10 


EBD1 


A9 


05 




LDA #$05 


for sector assignment 


EBD3 


85 


6A 




STA $6A 


5 read attempts 


EBD5 


A9 


73 




LDA #$73 


prepare power-up message 


EBD7 


20 


CI 


E6 


JSR $E6C1 


73, 'cbm dos v2.6 1541' 


EBDA 


A9 


1A 




LDA #$1A 


bit 1, 3 s 4 to exit 


EBDC 


8D 


02 


18 


STA $1802 


data direction of port B 


EBDF 


A9 


00 




LDA #$00 




EBE1 


8D 


00 


18 


STA $1800 


erase data register 


EBE4 


20 


80 


E7 


JSR $E780 


check for auto-start 


EBE7 


58 






CLI 




EBE8 


AD 


00 


18 


LDA $1800 




EBEB 


29 


E5 




AND #$E5 


reset serial port 


EBED 


8D 


00 


18 


STA $1800 




EBFO 


AD 


55 


02 


LDA $0255 


command flag set? 


EBF3 


FO 


OA 




BEO $EBFF 


no 


EBF5 


A9 


00 




LDA #$00 




EBF7 


8D 


55 


02 


STA $0255 


reset command flag 


EBFA 


85 


67 




STA $67 




EBFC 


20 


46 


CI 


JSR $C146 


analyze and execute command 


****************************** 


wait loop 


EBFF 


58 






CLI 


ECOO 


A5 


7C 




LDA $7C 


ATN signal discovered? 


EC02 


FO 


03 




BEO $EC07 


no 


EC04 


4C 


5B 


E8 


JMP SE85B 


to IEEE routine 


EC07 


58 






CLI 




ECO 8 


A9 


OE 




LDA #$0E 


14 


ECOA 


85 


72 




STA $72 


as secondary address 


ECOC 


A9 


00 




LDA #$00 




ECOE 


85 


6F 




STA $6F 


job counter 
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EC10 


85 


70 




STA 


$70 




EC12 


A6 


72 




LDX 


$72 




EC14 


BD 


2B 


02 


LDA 


$022B,X 


secondary address 


EC17 


C9 


FF 




CMP 


#$FF 


channel associated? 


EC19 


FO 


10 




BEQ 


$EC2B 


no 


EC1B 


26 


3F 




AND 


#$3F 




EC1D 


85 


82 




STA 


$82 


channel number 


EC1F 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


EC22 


AA 






TAX 




EC23 


BD 


5B 


02 


LDA 


$025B,X 


drive number 


EC26 


29 


01 




AND 


#$01 




EC28 


AA 






TAX 






EC29 


F6 


6F 




INC 


$6F,X 


increment job counter 


EC2B 


C6 


72 




DEC 


$72 


lo address 


EC2D 


10 


E3 




BPL 


$EC12 


continue search 


EC2F 


AO 


04 




LDY 


#$04 


buffer counter 


EC31 


B9 


00 


00 


LDA 


$0000, Y 


disk controller in action? 


EC34 


10 


05 




BPL 


$EC3B 


no 


EC36 


29 


01 




AND 


#$01 


isolate drive number 


EC38 


AA 






TAX 






EC39 


F6 


6F 




INC 


$6F,X 


increment 'job counter 


EC3B 


88 






DEY 




EC3C 


10 


F3 




BPL 


$EC31 


next buffer 


EC3E 


78 






SEI 






EC3F 


AD 


00 


1C 


LDA 


$1C00 




EC42 


29 


F7 




AND 


#$F7 


erase LED bit 


EC44 


48 






PHA 






EC45 


A5 


7F 




LDA 


$7F 


drive number 


EC47 


85 


86 




STA 


$86 




EC49 


A9 


00 




LDA 


#$00 




EC4B 


85 


7F 




STA 


$7F 


drive 


EC4D 


A5 


6F 




LDA 


$6F 


job for drive 0? 


EC4F 


FO 


OB 




BEO 


$EC5C 


no 


EC51 


A5 


1C 




LDA 


$1C 


write protect for drive 0? 


EC53 


FO 


03 




BEQ 


$EC58 


no 


EC55 


20 


13 


D3 


JSR 


$D313 


close all channels to drive 


EC58 


68 






PLA 






EC59 


09 


08 




ORA 


#$08 


set LED bit 


EC5B 


48 






PHA 






EC5C 


E6 


7F 




INC 


$7F 


increment drive number 


EC5E 


A5 


70 




LDA 


$70 


job for drive 1? 


EC60 


F0 


OB 




BEQ 


$EC6D 


no 


EC62 


A5 


ID 




LDA 


$1D 


write protect for drive 1? 


EC64 


F0 


03 




BEO 


$EC69 


no 


EC66 


20 


13 


D3 


JSR 


$D313 


close all channels to drive 


EC69 


68 






PLA 






EC6A 


09 


00 




ORA 


#$00 




EC6C 


48 






PHA 






EC6D 


A5 


86 




LDA 


$86 




EC6F 


85 


7F 




STA 


$7F 


get drive number back 


EC71 


68 






PLA 




bit for LED 


EC72 


AE 


6C 


02 


LDX 


$026C 


interrupt counter 


EC75 


FO 


21 




BEO 


$EC98 


to zero? 


EC77 


AD 


00 


1C 


LDA 


$1C00 




EC7A 


EO 


80 




CPX 


#$80 
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EC7C 


DO 


03 




BNE 


$EC81 




EC7E 


4C 


8B 


EC 


JMP 


$EC8B 




EC81 


AE 


05 


18 


LDX 


$1805 


erase timer interrupt 


EC84 


30 


12 




BMI 


$EC98 




EC86 


A2 


AO 




LDX 


#$A0 




EC88 


8E 


05 


18 


STX 


$1805 


set timer 


EC8B 


CE 


6C 


02 


DEC 


$026C 


decrement counter 


EC8E 


DO 


08 




BNE 


$EC98 


not yet zero? 


EC90 


4D 


6D 


02 


EOR 


$026D 




EC93 


A2 


10 




LDX 


#$10 




EC95 


8E 


6C 


02 


STX 


$026C 


reset counter 


EC98 


8D 


00 


1C 


STA 


$1C00 


turn LED on/off 


EC9B 


4C 


FF 


EB 


JMP 


$EBFF 


back to wait loop 


****************************** 


LOAD "$" 


EC9E 


A9 


00 




LDA 


#$00 


ECAO 


85 


83 




STA 


$83 


secondary address 


ECA2 


A9 


01 




LDA 


#$01 




ECA4 


20 


E2 


Dl 


JSR 


$D1E2 


find channel and buffer 


ECA7 


A9 


00 




LDA 


#$00 




ECA9 


20 


C8 


D4 


JSR 


$D4C8 


initialize buffer pointer 


ECAC 


A6 


82 




LDX 


$82 


channel number 


ECAE 


A9 


00 




LDA 


#$00 




ECBO 


9D 


44 


02 


STA 


^ f\ 1 A A V 

$0244 ,X 


pointer to end = zero 


ECB3 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


ECB6 


AA 






TAX 






ECB7 


A5 


7F 




LDA 


$7F 


drive number 


ECB9 


9D 


5B 


02 


STA 


$025B,X 


bring in table 


ECBC 


A9 


01 




LDA 


#$01 


1 


EC BE 


20 


Fl 


CF 


JSR 


$CFF1 


write in buffer 


ECC1 


A9 


04 




LDA 


#$04 


4, start address $0401 


ECC3 


20 


Fl 


CF 


JSR 


5CFF1 


write in buffer 


ECC6 


A9 


01 




LDA 


#$01 


2 times 1 


ECC8 


20 


Fl 


CF 


JSR 


SCFF1 




ECCB 


20 


Fl 


CF 


JSR 


$CFF1 


write in buffer as link address 


ECCE 


AD 


72 


02 


LDA 


$0272 


drive number 


ECD1 


20 


Fl 


CF 


JSR 


$CFF1 


write in buffer as line number 


ECD4 


A9 


00 




LDA 


#$00 


line number hi 


ECD6 


20 


Fl 


CF 


JSR 


$CFF1 


in buffer 


ECD9 


20 


59 


ED 


JSR 


$ED59 


directory entry in buffer 


EC DC 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


ECDF 


OA 






ASL 


A 


ECEO 


AA 






TAX 






ECE1 


D6 


99 




DEC 


$99, X 


decrement buffer pointer 


ECE3 


D6 


99 




DEC 


$99 ,X 


ECE5 


A9 


00 




LDA 


#$00 




ECE7 


20 


Fl 


CF 


JSR 


$CFF1 


as line end in buffer 


ECEA 


A9 


01 




LDA 


#$01 




ECEC 


20 


Fl 


CF 


JSR 


$CFF1 


2 times 1 as link address 


ECEF 


20 


Fl 


CF 


JSR 


$CFF1 




ECF2 


20 


CE 


C6 


JSR 


SC6CE 


directory entry in buffer 


ECF5 


90 


2C 




BCC 


SED23 


another entry? 


ECF7 


AD 


72 


02 


LDA 


$0272 


block number lo 


EC FA 


20 


Fl 


CF 


JSR 


$CFF1 


in buffer 


ECFD 


AD 


73 


02 


LDA 


$0273 


block number hi 
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EDOO 


20 


Fl 


CF 


JSR 


SCFF1 


in buffer 


EDO 3 


20 


59 


ED 


JSR 


$ED59 


directory entry in buffer 


ED06 


A9 


00 




LDA 


#$00 




ED08 


20 


Fl 


CF 


JSR 


$CFF1 


zero as end marker in buffe: 


EDOB 


DO 


DD 




BNE 


$ECEA 


buffer full? no 


EDOD 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


ED10 


OA 






ASL 


A 


ED11 


AA 






TAX 






ED12 


A9 


00 




LDA 


#$00 




ED14 


95 


99 




STA 


$99, X 


buffer pointer to zero 


ED16 


A9 


88 




LDA 


#$88 


set READ flag 


EDI 8 


A4 


82 




LDY 


$82 


channel number 


ED1A 


8D 


54 


02 


STA 


$0254 




ED1D 


99 


F2 


00 


STA 


$00F2,Y 


flag for channel 


ED20 


A5 


85 




LDA 


$85 


data byte 


ED22 


60 






RTS 




****************************** 




ED23 


AD 


72 


02 


LDA 


$0272 


block number lo 


ED26 


20 


Fl 


CF 


JSR 


$CFF1 


write in buffer 


ED29 


AD 


73 


02 


LDA 


$0273 


block number hi 


ED2C 


20 


Fl 


CF 


JSR 


$CFF1 


in buffer 


ED2F 


20 


59 


ED 


JSR 


SED59 


'Blocks free.' in buffer 


ED32 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


ED35 


OA 






ASL 


A 




ED36 


AA 






TAX 






ED37 


D6 


99 




DEC 


$99 ,X 




ED39 


D6 


99 




DEC 


$99, X 


buffer pointer minus 2 


ED3B 


A9 


00 




LDA 


#$00 


ED3D 


20 


Fl 


CF 


JSR 


$CFF1 




ED40 


20 


Fl 


CF 


JSR 


$CFF1 


three zeroes as program end 


ED43 


20 


Fl 


CF 


JSR 


$CFF1 


ED46 


20 


93 


DF 


JSR 


$DF93 


get buffer number 


ED49 


OA 






ASL 


A 


times 2 


ED4A 


A8 






TAY 






ED4B 


B9 


99 


02 


LDA 


$0099, Y 


buffer pointer 


ED4E 


A6 


82 




LDX 


$82 


ED50 


9D 


44 


02 


STA 


$0244, X 


as end marker 


ED53 


DE 


44 


02 


DEC 


$0244, X 




ED56 


4C 


OD 


ED 


JMP 


$ED0D 




****************************** 


transmit directory line 


ED59 


AO 


00 




LDY 


#$00 


ED5B 


B9 


Bl 


02 


LDA 


S02B1 ,Y 


character from buffer 


ED5E 


20 


Fl 


CF 


JSR 


$CFF1 


write in output buffer 


ED61 


C8 






INY 




ED62 


CO 


IB 




CPY 


#$1B 


27 characters? 


ED64 


DO 


F5 




BNE 


SED5B 




ED66 


60 






RTS 






****************************** 


get byte from buffer 


ED67 


20 


37 


Dl 


JSR 


$D137 


get byte 


ED6A 


FO 


01 




BEO 


SED6D 


buffer pointer zero? 


ED6C 


60 






RTS 
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ED6D 


85 


85 




STA 


$85 


save data byte 


ED6 F 


A4 


82 




LDY 


$82 


channel number 


ED71 


B9 


44 


02 


LDA 


$0244 f Y 


set end marker 


ED74 


FO 


08 




BEO 


$ED7E 


zero ( LOAD $ ) ? 


ED76 


A9 


80 




LDA 


#$80 




ED78 


99 


F2 


00 


STA 


$00F2,Y 


set READ flag 


ED7B 


A5 


85 




LDA 


$85 


UOLO — J <»C 


ED7D 


60 






RTS 






ED7E 


48 






PHA 






ED7F 


20 


EA 


EC 


JSR 


$ECEA 


create directory line in buffer 


ED82 


68 






PLA 






ED83 


60 






RTS 






****************************** 


V command, 'collect 1 


ED84 


20 


Dl 


CI 


JSP 


$C1D1 


find drive number in input line 


ED87 


20 


42 


DO 


JSR 


$D042 


load BAM 


ED8A 


A9 


40 




LDA 


#$40 




ED8C 


8D 


F9 


02 


STA 


$02F9 




ED8F 


20 


B7 


EE 


JSR 


$EEB7 


create new BAM in buffer 


ED92 


A9 


00 




LDA 


#$00 




ED94 


8D 


92 


02 


STA 


$0292 




ED97 


20 


AC 


C5 


JSR 


$C5AC 


load directory, find 1st flag 


ED9A 


DO 


3D 




BNE 


$EDD9 


found? 


ED9C 


A9 


00 




LDA 


#$00 




ED9E 


85 


81 




STA 


$81 


sector 


EDAO 


AD 


8E 


FE 


LDA 


SFE85 


18 


EDA3 


85 


80 




STA 


$80 


track 18 for BAM 


EDA5 


20 


E5 


ED 


JSR 


$EDE5 


mark dir blocks as allocated 


EDA8 


A9 


00 




LDA 


#$00 




EDAA 


8D 


F9 


02 


STA 


S02F9 




EDAD 


20 


FF 


EE 


JSR 


$EEFF 


write BAM back to disk 


EDBO 


4C 


94 


CI 


JMP 


$C194 


done, prepare disk status 


****************************** 




EDB3 


C8 






INY 






EDB4 


Bl 


94 




LDA 


($94) ,Y 


save track 


ED86 


48 






PHA 






EDB7 


C8 






INY 






EDB8 


Bl 


94 




LDA 


($94) ,Y 


and sector 


EDBA 


48 






PHA 






EDBB 


AO 


13 




LDA 


#$13 


pointer to side-sector block 


EDBD 


Bl 


94 




LDA 


($94) ,Y 




EDBF 


FO 


OA 




BEO 


SEDCB 


no track following? 


EDC1 


85 


80 




STA 


$80 


track and 


EDC3 


C8 






INY 






EDC4 


Bl 


94 




LDA 


($94) r Y 




EDC6 


85 


81 




STA 


$81 


sector of 1st side-sector block 


EDC8 


20 


E5 


ED 


JSR 


$EDE5 


mark side-sector blocks as 


EDCB 


68 






PLA 




allocated 


EDCC 


85 


81 




STA 


$81 




EDCE 


68 






PLA 




get track and sector back 


EDCF 


85 


80 




STA 


$80 




EDD1 


20 


E5 


ED 


JSR 


$EDE5 


mark blocks of file as allocate 


EDD4 


20 


04 


C6 


JSP 


$C604 


read next entry in directory 
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EDD7 


FO 


C3 




BEQ 


SED9C 




EDD9 


AO 


00 




LDY 


#$00 




EDDB 


Bl 


94 




LDA 


($94) . 


,Y 


EDDD 


30 


D4 




BMI 


SEDB3 




EDDF 


20 


B6 


C8 


JSR 


$C8B6 




EDE2 


4C 


D4 


ED 


JMP 


SEDD4 




*****************************: 


EDE5 


20 


5F 


D5 


JSR 


$D55F 




EDE8 


20 


90 


EF 


JSR 


$EF90 




EDEB 


20 


75 


D4 


JSR 


$D475 




EDEE 


A9 


00 




LDA 


#$00 




EDFO 


20 


C8 


D4 


JSR 


$D4C8 




EDF3 


20 


37 


Dl 


JSR 


$D137 




EDF6 


85 


80 




STA 


$80 




EDF8 


20 


37 


Dl 


JSR 


$D137 




EDFB 


85 


81 




STA 


$81 




EDFD 


A5 


80 




LDA 


$80 




EDFF 


DO 


03 




BNE 


$EE04 




EE01 


4C 


27 


D2 


JMP 


SD227 




EE04 


20 


90 


EF 


JSR 


SEF90 




EE07 


20 


4D 


D4 


JSR 


$D44D 




EEOA 


4C 


EE 


ED 


JMP 


SEDEE 




*****************************< 


EEOD 


20 


12 


C3 


JSR 


$C312 




EE10 


A5 


E2 




LDA 


$E2 




EE12 


10 


05 




BPL 


$EE19 




EE14 


A9 


33 




LDA 


#$33 




EE16 


4C 


C8 


CI 


JMP 


$C1C8 




EE19 


29 


01 




AND 


#$01 




EE1B 


85 


7F 




STA 


$7F 




EE1D 


20 


00 


CI 


JSR 


SC100 




EE20 


A5 


7F 




LDA 


$7F 




EE22 


OA 






ASL 


A 




EE23 


AA 






TAX 






EE24 


AC 


7B 


02 


LDY 


S027B 




EE27 


CC 


74 


02 


CPY 


$0274 




EE2A 


FO 


1A 




BEQ 


$EE46 




EE2C 


B9 


00 


02 


LDA 


$0200, 


Y 


EE2F 


95 


12 




STA 


$12,X 




EE31 


B9 


01 


02 


LDA 


$0201, 


Y 


EE34 


95 


13 




STA 


$13, X 




EE36 


20 


07 


D3 


JSR 


$D307 




EE39 


A9 


01 




LDA 


#$01 




EE3B 


85 


80 




STA 


$80 




EE3D 


20 


C6 


C8 


JSR 


$C8C6 




EE40 


20 


05 


FO 


JSR 


$F005 




EE43 


4C 


56 


EE 


JMP 


SEE56 




EE46 


20 


42 


DO 


JSR 


$D042 




EE49 


A6 


7F 




LDX 


$7F 




EE4B 


BD 


01 


01 


LDA 


$0101, 


X 


EE4E 


CD 


D5 


FE 


CMP 


$FED5 





end of directory? 
file type 

bit 7 set, file closed? 

file type to zero and write BAM 



allocate file blocks in BAM 
check track and sector number 
allocate block in BAM 
read next block 

buffer pointer zero 
get byte from buffer 
track 

get byte from buffer 
sector 

another block? 
yes 

close channel 

allocate block in BAM 
read next block 
continue 

N command, 'header' 
get drive number 
drive number 
not clear? 

33, 'syntax error' 

drive number 
turn LED on 
drive number 
times 2 

comma position 
compare with end name 
format without id 
first character of ID 
save 

second character 

close all channels 

track 1 
format disk 
erase buffer 
continue as below 

load BAM 
drive number 

'A' , marker for 1541 format 
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EE51 


FO 


03 




BEO 


SEE56 


ok 


EE53 


4C 


72 


D5 


JMP 


$D572 


73, 'cbm dos v2.6 1541' 


EE56 


20 


B7 


EE 


JSR 


SEEB7 


create BAM 


EE59 


A5 


F9 




LDA 


SF9 


buffer number 


EE5B 


A8 






TAY 






EE5C 


OA 






ASL 


A 




EE5D 


AA 






TAX 






EE5E 


AD 


88 


FE 


LDA 


$FE88 


$90, start of disk name 


EE61 


95 


99 




STA 


S99 ,X 


buffer pointer to name 


EE63 


AE 


7A 


02 


LDX 


S027A 




EE66 


A9 


IB 




LDA 


#$1B 


27 


EE68 


20 


6E 


C6 


JSR 


$C66E 


write filenames in buffer 


EE6B 


AO 


12 




LDY 


#$12 


position 18 


EE6D 


A6 


7F 




LDX 


$7F 


drive number 


EE6F 


AD 


D5 


FE 


LDA 


$FED5 


'A 1 , 1541 format 


EE72 


9D 


01 


01 


STA 


$0101, X 




EE75 


8A 






TXA 






EE76 


OA 






ASL 


A 


times 2 


EE77 


AA 






TAX 






EE78 


B5 


12 




LDA 


$12, X 


ID, first character 


EE7A 


91 


94 




STA 


($94) ,Y 


in buffer 


EE7C 


C8 






INY 






EE7D 


B5 


13 




LDA 


$13, X 


and second character 


EE7F 


91 


94 




STA 


($94) ,Y 


in buffer 


EE81 


C8 






INY 






EE82 


C8 






INY 






EE83 


A9 


32 




LDA 


#$32 


• 2' 


EE85 


91 


94 




STA 


($94) ,Y 


in buffer 


EE87 


C8 






INY 






EE88 


AD 


D5 


FE 


LDA 


SFED5 


' A' 1541 format 


EE8B 


91 


94 




STA 


($94) ,Y 


in buffer 


EE8D 


AO 


02 




LDY 


#$02 




EE8F 


91 


6D 




STA 


( $6D) ,Y 


and at position 2 


BE91 


AD 


85 


FE 


LDA 


SFE85 


18 


EE94 


85 


80 




STA 


$80 


track number 


EE96 


20 


93 


EF 


JSR 


SEF93 


mark block as allocated 


EE99 


A9 


01 




LDA 


#$01 


1 


EE9B 


85 


81 




STA 


$81 


sector number 


EE9D 


20 


93 


EF 


JSR 


SEF93 


mark block as allocated 


EEAO 


20 


FF 


EE 


JSR 


SEEFF 


write BAM 


EEA3 


20 


05 


FO 


JSR 


SF005 


pointer $6D/$6E to buffer. 


EEA6 


AO 


01 




LDY 


#$01 


buffer 


EEA8 


A9 


FF 




LDA 


#$FF 




EEAA 


9A 


6D 




STA 


( S6D) ,Y 


track following is zero 


EE AC 


20 


64 


D4 


JSR 


$D464 


write BAM 


EEAF 


C6 


81 




DEC 


$81 


decrement sector number, 


EEB1 


20 


60 


D4 


JSR 


SD460 


read block 


EEB4 


4C 


94 


CI 


JMP 


$C194 


prepare disk status 


****************************** 


create BAM 


EEB7 


20 


Dl 


FO 


JSR 


$F0D1 




EEBA 


AO 


00 




LDY 


#$00 




EEBC 


A9 


12 




LDA 


#$12 


18 


EEBE 


91 


6D 




STA 


($6D) ,Y 


pointer to directory track 
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BBCO 


C8 






INY 




EEC1 


98 






TYA 




EEC2 


91 


6D 




STA 


($6D) ,Y 


EEC4 


C8 






INY 


EEC5 


C8 






INY 




EEC6 


C8 






INY 




EEC7 


A9 


00 




LDA 


#$00 


EEC9 


85 


6F 




STA 


S6F 


EEC8 


85 


70 




STA 


$70 


EECD 


85 


71 




STA 


$71 


EECF 


98 






TYA 




EEDO 


4A 






LSR 


A 


EED1 


4A 






LSR 


A 


EED2 


20 


4B 


F2 


JSR 


$F24B 


cent; 




6D 




STA 


( $6D) , Y 


EED7 


C8 






INY 




EED8 


AA 






TAX 




EED9 


38 






SEC 




EEDA 


26 


6F 




ROL 


$6F 


EEDC 


26 


70 




ROL 


$70 


EEDE 


26 


71 




ROL 


$71 


EEEO 


CA 






DEX 




EEE1 


DO 


F6 




BNE 


$EED9 


EEE3 


B5 


6F 




LDA 


$6F ,X 


EEE5 


91 


6D 




STA 


($6D) ,Y 


EEE7 


C8 






INY 




EEE8 


E8 






INX 




EEE9 


EO 


03 




CPX 


#$03 


EEEB 


90 


F6 




BCC 


SEEE3 


EEED 


CO 


90 




CPY 


#$90 


EEEP 


90 


D6 




BCC 


$EEC7 


EEF1 


4C 


75 


DO 


JMP 


SD075 


****************************** 


EEF4 


20 


93 


DF 


JSR 


SDF93 


EEF7 


AA 






TAX 




EEF8 


BD 


5B 


02 


LDA 


$025B,X 


EEFB 


29 


01 




AND 


#$01 


EEFD 


85 


7F 




STA 


$7F 


EEFF 


A4 


7F 




LDY 


$7F 


EFOl 


B9 


51 


02 


LDA 


$0251, Y 


EF04 


DO 


01 




BNE 


$EF07 


EF06 


60 






RTS 




EF07 


A9 


00 




LDA 


#$00 


EF09 


99 


51 


02 


STA 


$0251, Y 


EFOC 


20 


3A 


EF 


JSR 


$EF3A 


EFOF 


A5 


7F 




LDA 


$7F 


EF11 


OA 






ASL 


A 


EF12 


48 






PHA 




EF13 


20 


A5 


FO 


JSR 


SF0A5 


EF16 


68 






PLA 




EF17 


18 






CLC 




EF18 


69 


01 




ADC 


#$01 


EF1A 


20 


A5 


FO 


JSR 


$F0A5 



Anatomy of the 1541 Disk Drive 



1 

pointer to directory sector 



3 bytes = 24 bits for sectors 
byte position 

divided by 4 = track number 
get number of sectors 
and in BAM 



create bit model 



3 bytes 

the BAM in buffer 



position 144? 
no, next track 

calculate number of free blocks 

write BAM if needed 
get buffer number 

command for disk controller 

isolate drive number 

BAM-changed flag set? 
yes 



reset BAM-changed flag 
set buffer pointer for BAM 
drive number 
times 2 

verify BAM entry 



increment track number 
verify BAM entry 
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EF1D 


A5 


80 




LDA 


$80 


EF1F 


48 






PHA 




EF20 


A9 


01 




LDA 


#$01 


EF22 


85 


80 




STA 


$80 


EF24 


OA 






ASL 


A 


EF25 


OA 






ASL 


A 


EF26 


85 


6D 




STA 


$6D 


EF28 


20 


20 


F2 


JSR 


$F220 


EF2B 


E6 


80 




INC 


$80 


EF2D 


A5 


80 




LDA 


$80 


EF2F 


CD 


D7 


FE 


CMP 


$FED7 


EF32 


90 


FO 




BCC 


$EF24 


EF34 


68 






PLA 




EF35 


85 


80 




STA 


$80 


EF37 


4C 


8A 


D5 


JMP 


$D58A 


****************************** 


EF3A 


20 


OF 


Fl 


JSR 


$F10F 


EF3D 


AA 






TAX 




EF3E 


20 


DF 


FO 


JSR 


$F0DF 


EF41 


A6 


F9 




LDX 


$F9 


EF43 


BD 


EO 


FE 


LDA 


$FEE0 ,X 


EF46 


85 


6E 




STA 


$6E 


EF48 


A9 


00 




LDA 


#$00 


EF4A 


85 


6D 




STA 


$6D 


EF4C 


60 






RTS 




****************************** 


EF4D 


A6 


7F 




LDX 


$7F 


EF4F 


BD 


FA 


02 


LDA 


S02FA.X 


EF52 


8D 


72 


02 


STA 


$0272 


EF55 


BD 


FC 


02 


LDA 


$02FC,X 


EF58 


8D 


73 


02 


STA 


$0273 


EF5B 


60 






RTS 




****************************** 


EF5C 


20 


Fl 


EF 


JSR 


$EFF1 


EF5F 


20 


CF 


EF 


JSR 


SEFCF 


EF62 


38 






SEC 




EF63 


DO 


22 




BNF 


$EF87 


EF65 


Bl 


6D 




LDA 


($6D) ,Y 


EF67 


ID 


E9 


EF 


ORA 


$EFE9 


EF6A 


91 


6D 




STA 


($60) ,Y 


EF6C 


20 


88 


EF 


JSP 


$EF88 


EF6F 


A4 


6F 




LDY 


$6F 


EF71 


18 






CLC 




EF72 


Bl 


6D 




LDY 


($6D) ,Y 


EF74 


69 


01 




ADC 


#$01 


EF76 


91 


6D 




STA 


($6D) ,Y 


EF78 


A5 


80 




LDA 


$80 


EF7A 


CD 


85 


FE 


CMP 


SFE85 


EF7D 


F0 


3B 




BEO 


$EFBA 


EF7F 


FE 


FA 


02 


INC 


$02FA,X 


EF82 


DO 


03 




BNE 


SEF87 


EF84 


FE 


FC 


02 


INC 


$02FC,X 



track 



track 1 
times 4 
verify BAM 

increment track number 

and compare with max val + 1 = 36 
ok, next track 

get track number back 
write BAM to disk 

set buffer pointer for BAM 
get 6 for drive 

allocate buffer 

buffer number 

buffer address, hi byte 

lo byte 

pointer to $6D/$6E 

get # of free blocks for dir 

drive number 

number of blocks, lo 

number of blocks, hi 
in buffer for directory 



mark block as free 
set buffer pointer 
erase bit for sector in BAM 

block already free, then done 

bit model of BAM 

set bit X, marker for free 

set flag for BAM changed 



increment # of free blocks/track 
track 

equal to 18? 
then skip 

inc # of free blocks in disk 
increment number of blocks hi 
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EF87 60 



RTS 



****************************** 
EF88 A6 7P LDX $7F 

EF8A A9 01 LDA #$01 

EF8C 9D 51 02 STA $0251, X 
EF8F 60 PTS 

****************************** 



EF90 


20 


Fl 


EF 


JSR 


$EFF1 


EF93 


20 


CF 


EF 


JSR 


$EFCF 


EF96 


FO 


36 




BEO 


$EFCE 


EF98 


Bl 


6D 




LDA 


($6D) ,Y 


EF9A 


5D 


E9 


EF 


EOR 


$EFE9 ,X 


EF9D 


91 


6D 




STA 


( $6D) , Y 


EF9F 


20 


88 


EF 


JSR 


SEF88 


EFA2 


A4 


6F 




LDA 


$6F 


EFA4 


Bl 


6D 




LDA 


($6D) ,Y 


EFA6 


38 






SEC 




EFA7 


E9 


01 




SBC 


#$01 


EFA9 


91 


6D 




STA 


($6D) ,Y 


EFAB 


A5 


80 




LDA 


$80 


EFAD 


CD 


85 


FE 


CMP 


SFE85 


EFBO 


FO 


OB 




BEO 


$EFBD 


EFB2 


BD 


FA 


02 


LDA 


$02FA,X 


EFB5 


DO 


03 




BNE 


$EFBA 


EFB7 


DE 


FC 


02 


DEC 


$02FC,X 


EFBA 


DE 


FA 


02 


DEC 


$02FA,X 


EFBD 


BD 


FC 


02 


LDA 


S02FC,X 


EFCO 


DO 


OC 




BNE 


$EFCE 


EFC2 


BD 


FA 


02 


LDA 


$02FA,X 


EFC5 


C9 


03 




CMP 


#$03 


EFC7 


BO 


05 




BCS 


$EFCE 


EFC9 


A9 


72 




LDA 


#$72 


EFCB 


20 


C7 


E6 


JSR 


SE6C7 


EFCE 


60 






RTS 




****************************** 


EFCF 


20 


11 


FO 


JSR 


SF011 


EFD2 


98 






TYA 




EFD3 


85 


6F 




STA 


$6F 


EFD5 


A5 


81 




LDA 


$81 


EFD7 


4A 






LSR 


A 


EFD8 


4A 






LSR 


A 


EFD9 


4A 






LSR 


A 


EFDA 


38 






SEC 




EFDB 


65 


6F 




ADC 


S6F 


EFDD 


A8 






TAY 




EFDE 


A5 


81 




LDA 


$81 


EFEO 


29 


07 




AND 


#$07 


EFE2 


AA 






TAX 




EFE3 


Bl 


6D 




LDA 


(S6D) ,Y 


EFE5 


3D 


E9 


EF 


AND 


$EFE9,X 


EFE8 


60 






RTS 





set flag for ' BAM changed' 
drive number 

flag = 1 



mark block as allocated 
set buffer pointer 
erase bit for sector in bam 
already allocated, then done 

erase bit for block 

set flag for BAM changed 



decrement # of blocks per track 

track 
18? 



number of free blocks lo 

decrement number of free blocks 

number of free blocks hi 
more than 255 blocks free? 
free blocks lo 

smaller than 3? 

72, 'disk full' 



erase bit for sector in BAM entry 
find BAM field for this track 



sector 



divide by 8 



byte number in BAM entry 
sector number 

bit number in BAM entry 
byte in BAM 

erase bit for corresponding 
sector 
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****************************** 
EPE9 01 02 04 08 10 20 40 80 



****************************** 



EFF1 


A9 


FF 




LDA 


#$FF 




EFF3 


2C 


F9 


02 


BIT 


S02F9 




EFF6 


FO 


OC 




BEQ 


$F004 




EFF8 


10 


OA 




BPL 


$F004 




EFFA 


70 


08 




BVS 


$F004 




EFFC 


A9 


00 




LDA 


#$00 




EFFE 


8D 


F9 


02 


STA 


$02F9 




F001 


4C 


8A 


D5 


JMP 


SD58A 




F004 


60 






RTS 






****************************** 


F005 


20 


3A 


EF 


JSR 


SEF3A 




F008 


AO 


00 




LDY 


#$00 




F00A 


98 






TYA 






F00B 


91 


6D 




STA 


($6D) , 


1 


FOOD 


C8 






I NY 






F00E 


DO 


FB 




BNE 


SFOOB 




F010 


60 






RTS 






****************************** 


F011 


A5 


6F 




LDA 


$6F 




F013 


48 






PHA 






F014 


A5 


70 




LDA 


$70 




F016 


48 






PHA 






F017 


A6 


7F 




LDX 


$7F 




F019 


B5 


FF 




LDA 


$FF,X 




F01B 


FO 


05 




BEQ 


$F022 




F01D 


A9 


74 




LDA 


#$74 




F01F 


20 


48 


E6 


JSR 


SE648 




F022 


20 


OF 


Fl 


JSR 


$F10F 




F025 


85 


6F 




STA 


$6F 




F027 


8A 






TXA 






F028 


OA 






ASL 


A 




F029 


85 


70 




STA 


$70 




F02B 


AA 






TAX 






F02C 


A5 


80 




LDA 


$80 




F02E 


DD 


9D 


02 


CMP 


S029D, 


X 


F031 


FO 


OB 




BEQ 


$F03E 




F033 


E8 






INX 






F034 


86 


70 




STX 


$70 




F036 


DD 


9D 


02 


CMP 


$029D, 


X 


F039 


FO 


03 




BEO 


SF03E 




F03B 


20 


5B 


FO 


JSR 


$F05B 




F03E 


A5 


70 




LDA 


$70 




F040 


A6 


7F 




LDX 


$7F 




F042 


9D 


9B 


02 


STA 


S029B 


X 


F045 


OA 






ASL 


A 




F046 


OA 






ASL 


A 




F047 


18 






CLC 






F048 


69 


Al 




ADC 


#$A1 




F04A 


85 


6D 




STA 


$6D 





powers of 2 

write BAM after change 

reset flag 
write block 

erase BAM buffer 

pointer $6D/$6E to BAM buffer 

erase BAM buffer 

drive number 

drive zero? 

'drive not ready' 

get buffer number for BAM 

track 

drive number 
times 4 
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F04C 


A9 


02 




LDA 


#$02 


F04E 


69 


00 




ADC 


#$00 


F050 


85 


6E 




STA 


$6E 


F052 


AO 


00 




LDY 


#$00 


F054 


58 






PLA 




F055 


85 


70 




STA 


$70 


F057 


68 






PLA 




F058 


85 


6F 




STA 


$6F 


F05A 


60 






RTS 




***************************** 


F05B 


A6 


6F 




LDX 


$6F 


F05D 


20 


DF 


FO 


JSR 


$F0DF 


F060 


A5 


7F 




LDA 


$7F 


F062 


AA 






TAX 




F063 


OA 






ASL 


A 


F064 


ID 


9B 


02 


ORA 


$029B,X 


F067 


49 


01 




EOR 


#$01 


F069 


29 


03 




AND 


#$03 


F06B 


85 


70 




STA 


$70 


F06D 


20 


AS 


FO 


JSR 


$F0A5 


F070 


A5 


F9 




LDA 


$F9 


F072 


OA 






ASL 


A 


F073 


AA 






TAX 




F074 


A5 


80 




LDA 


$80 


F076 


OA 






ASL 


A 


F077 


OA 






ASL 


A 


F078 


95 


99 




STA 


$99 ,X 


F07A 


A5 


/ u 




LDA 


9 /U 


F07C 


OA 






ASL 


A 


F07D 


OA 






ASL 


A 


F07E 


A8 






TAY 




F07F 




qq 




LDA 


( 599 ,X ) 


F081 


99 


Al 


02 


STA 


S02A1,X 


F084 


A9 


00 




LDA 


#$00 


F086 


81 


99 




STA 


($99, X) 


F088 


F6 


99 




INC 


$99, X 


F08A 


C8 






I NY 




F08B 


98 






TYA 




F08C 


29 


03 




AND 


#S03 


F08E 


DO 


EF 




BNE 


$F07F 


F090 


A6 


70 




LDX 


$70 


F092 


A5 


80 




LDA 


$80 


F094 


9D 


9D 


02 


STA 


$029D,X 


F097 


AD 


F9 


02 


LDA 


$02F9 


F09A 


DO 


03 




BNE 


$F09F 


F09C 


4C 


8A 


D5 


JMP 


SD58A 


F09F 


09 


80 




ORA 


#$80 


F0A1 


8D 


F9 


02 


STA 


$02F9 


F0A4 


60 






RTS 




F0A5 


A8 






TAY 




F0A6 


B9 


9D 


02 


LDA 


$029D,Y 


F0A9 


FO 


25 




BEO 


SFODO 



drive number 



buffer number 



track 



times 4 

equal pointer in BAM field 



zero in buffer 
increment buffer pointer 



track 



write block 



231 



Anatomy of the 1541 Disk Drive 



FOAB 


A Q 






dm a 






foac 




nn 
uu 










FOAE 


O Q 

y y 


y u 


no 
Uz 


STA 


? u zy 1J r 


v 


FOBl 


A5 


F9 




LDA 


C CO 




F0B3 


n a 
UA 






a ct 


A 
A 




F0B4 


AA 






TAX 






F0B5 


bo 






DT A 






F0B6 


OA 






ASL 


A 




F0B7 


n a 






ACT 


A 




FOBB 


Q C 
7J 


Q Q 

y y 




CTA 
oln 


$99, X 




FOBA 


y o 






TYA 






FOBB 


n & 
UA 






ACT 

noli 


A 




FOBC 


n a 
U A 






a CT 


A 




FOBD 


AB 






Tl V 
in I 






r-i ^ T~) r? 

FOBE 


DO 

By 


A 1 

Al 


n o 
Uz 




$02A1, 


Y 


FOCI 


81 


99 




STA 


($99, X) 


F0C3 


A9 


00 




LDA 


ji c nn 




F0C5 


yy 


A 1 


n o 
Uz 


STA 


C no a l 
? UzAl | 


Y 


F0C8 


r b 


y y 






$>y y f a 




FOCA 


C8 






INY 






FOCB 


on 

3D 






tv a 






FOCC 


zy 


n "a 




AND 


AC n "3 




FOCE 


DU 


EE 




BNE 


$ FOBE 




FODO 


bU 






DT C 






F0D1 


A5 


7F 




LDA 


OTP 

p / r 




F0D3 


OA 






ASL 


a 

A 




F0D4 


AA 






TAX 






pnt"\R 

f \JUO 


aQ 
Ay 


nn 
uu 




LDA 






FO D7 


y u 


Q n 


n o 
u z 


MA 


i? Uzy v , 


,X 


FO DA 








I NX 






r u Lies 


on 

y u 


Qn 


02 


STA 


$029D, 


,x 


en FiC 
r Vuej 


fin 






TJTQ 
PAD 






r u iJr 


DC 
Dj 


A / 




LDA 


$A7,X 




FOEl 


r*o 

t_y 


FF 




CMP 


#$FF 




F0E3 


DO 


25 




BNE 


$F10A 




F0E5 


8A 






TXA 






F0E6 


A Q 






PHA 






F0E7 


zU 


□ C 1 

o fc 


pin 

Uz 


JSR 


$D28E 




FOEA 


AA 






TAX 






FOEB 


i n 

1U 


n £ 

UD 




nor 


SF0F2 




FO ED 


no 

Ay 


/U 




LDA 


#$70 




FOEF 


zU 


to 


pi 


1 cv> 
ubt< 


$C1C8 




FO F2 


86 


F9 




STX 


$F9 




FO F4 


68 






PLA 






FO F5 


aQ 
fto 






TSV 






F0F6 


8A 






TXA 






F0F7 


09 


80 




OPA 


#$80 




F0F9 


99 


A7 


00 


STA 


$00A7 


rY 


FOFC 


OA 






ASL 


A 




FOFD 


AA 






TAX 






FOFE 


AD 


85 


FE 


LDA 


SFE85 




F101 


95 


06 




STA 


$06, X 




F103 


A9 


00 




LDA 


#$00 





buffer number 
times 2 



write in buffer 



increment buffer pointer 



drive number 



70, 'no channel' 



18, directory track 

save 
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F105 


95 


07 




STA 


S07,X 


as sector 


F107 


4C 


86 


D5 


JMP 


$D586 


write block 


F10A 


29 


OF 




AND 


#$0F 




F10C 


85 


F9 




STA 


$F9 


buffer number 


F10E 


60 






RTS 






****************************** 


get buffer number for BAM 


F10F 


A9 


06 




LDA 


#$06 


Fill 


A6 


7F 




LDX 


S7F 


drive number 


F113 


DO 


03 




BNE 


$F118 




F115 


18 






CLC 






F116 


69 


07 




ADC 


#$07 


yivcb ±j iur Qrive u 


F118 


60 






RTS 




****************************** 


uutter nuiujjer tor dam 


F119 


20 


OF 


Fl 


JSR 


$F10F 


get buffer number 


F11C 


AA 






TAX 




F11D 


60 






RTS 






****************************** 


tino ana allocate free block 


r ± ± Ci 


on 
z u 


■a c 


DE 


JSR 


$DE3E 


get track and sector number 


F121 




U.5 




LDA 


41 C n Q 




F123 


85 


6F 






ecp 
*or 


LUU n u ts L 




& Q 


n i 

U 1 




LDA 


#901 




F127 


0D 


r u 




ADA 


•>Uzr y 




F12A 


8D 


F9 


02 


STA 


$02F9 




F12D 


A5 


6F 




LDA 


$6F 


save counter 


F12F 


48 






PHA 






F130 


20 


11 


FO 


JSR 


SF011 


Dfln iieia Lor tnis uisck 


F133 


68 






PLA 






F134 


85 


6F 




STA 


$6F 


get counter back 


F136 


Bl 


6D 




LDA 


($6D) ,Y 


iiuiiiucjl ul t zree dioc ks in tracK 


F138 


DO 


39 




BNE 


SF173 


uiuLKa Mill it cc ; 


F13A 


A5 


80 




LDA 


$80 




F13C 


CD 


85 


FE 


CMP 


SFE85 


lo r directory track? 


F13F 


F0 


19 




BEQ 


SF15A 


yes , 'disk full 1 


F141 


90 


1C 




BCC 


$F15F 


smal ler , then next lower track 


F143 


E6 


80 




INC 


$80 


i nc reroent track numbe r 


F145 


A5 


80 




LDA 


$80 




F147 


CD 


D7 


FE 


CMP 


SFED7 


36, highest track number plus one 


F14A 


DO 


El 




BNE 


SF12D 


no, continue searching th is track 


F14C 


AE 


85 


FE 


LDX 


$FE85 


18, directory track 


F14F 


CA 






DEX 




dec remen t 


F150 


86 


80 




STX 


$80 


o a v t; cio L JL a L, ri nuiiiue i 


F152 


A9 


00 




LDA 


#$00 




F154 


85 


81 




STA 


$81 


. . . 

Deg in wi t n sec tor number zero 


F156 


C6 


6F 




DEC 


$6F 


decrement counter 


F158 


DO 


D3 




BNE 


$F12D 


not yet zero, then continue 


F15A 


A9 


72 




LDA 


#$72 


F15C 


20 


C8 


CI 


JSR 


$C1C8 


72, 'disk full' 


F15F 


C6 


80 




DEC 


$80 


decrement track number 


F161 


DO 


CA 




BNE 


$F12D 


not yet 0, continue in this track 


F163 


AE 


85 


FE 


LDX 


SFE85 


18, directory track 


F166 


E8 






INX 




increment 
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Pi fi7 


ft fi. 


ft n 
o u 




CTY 


con 
?OU 


save as tea cis. numuet 


171 £ Q 


a Q 


nn 




LDA 


# P UU 




Pi fin 
r ion 


ft R 


ft l 

o 1 




era 

OlA 


<5 ft 1 


uey in witn sector zero 


pi firt 
r i du 


Pfi 
CO 


ftp 




Lite 


<5fip 


uec t cine n t counter 


Pl fi P 
nor 


nn 
uu 










nnf trot* "»£»v*/"\ fhan /^Anf i nno 
IlUt yet 6cLU r tllcil t(J lit 111 tie 


PI 7 1 

C 1 1 1 


FO 


E7 




BEQ 


S F 1 5A 


ol co ' H i elf full' 
else UloN 1U11 


F173 


A5 


81 




LDA 


$81 


sector number 


PI 7*"i 


18 






CLC 






PI 7fi 
r i / o 


fi<"i 

O 3 


D 3 




rtJJC 


$ 69 


nine ef on uj Hf h / 1 ft \ 
Plus Step WlUtll \ 1U / 


F178 


85 


81 




STA 


$81 


a c now numhoy 
as new iiuiuuex. 


pi 7a 


AC 


ou 




t na 


3ftn 
9 o u 


f- y- /-» Lr ni l rri ^ V 

exacts numuex 


PI 7f 


■>n 

e.\i 


An 


fo 


TCD 

U OI\ 




not- ma vl mi itti c or* V i"*>" numhor 
yet ma A XWUiu sec tux nuniut; x 




q n 

o D 


A P 


no 
uz 


CTA 
bin 


9 U Zft Ci 




Pi ft 
r lot 


ft n 


An 


no 


STA 


S024D 


a I IU sa v c 


Pl ft 


CD 


o 1 

o i 




CMP 


<Sft i 

Pol 


y x ea t e x tnan acicttcu sec tux ff • 


PI ft7 


BO 


oc 




DLc> 






F189 


38 






SEC 




else 


F18A 


A5 


81 




LDA 


$81 


sector* number 


FlBC 


ED 


4E 


02 


SBC 


$024E 


Hi 1 1 1 US ilia A XIIIUUI SeC tUL IlUlUL/e X 


pi ftp 
r lor 


ft R 


ft 1 

O 1 




Oln 


<$ft l 


save ao new octtui nuiuuex 


Pl Q 1 


pn 


no 




DDA 

n CjVJ 


CD1 DC 


zero? 


F193 


C6 


81 




DEC 


$81 


else decrement sector no, by one 


F195 


20 


FA 


Fl 


JSR 


$F1FA 


check BAH, find free sector 


F198 


FO 


03 




BEO 


$F1"D 


not tounuf 


F19A 


4C 


90 


EF 


JMP 


SEF90 


allocate PIOC Is 111 Drtrl 


F19D 


A9 


00 




LDA 


#$00 




F19F 


85 


81 




STA 


$81 


seCtOX ZeXO 


F1A1 


20 


FA 


Fl 


JSR 


$F1FA 


f i nH f rpp eppf ("IT" 
J- J. I Ivl 1- L CC OCtLUI. 


F1A4 


DO 


F4 




BNE 


$F19A 


■F nnnrl *? 


F1A6 


4C 


F5 


Fl 


JMP 


$F1F5 


11V f U1L 9Ct LUL . 


****************************** 


find fi*©f* <?ect"i*>i" and all nrsfp 


F1A9 


A9 


01 




LDA 


#$01 




F1AB 


OD 


F9 


02 


ORA 


$02F9 




F1B1 


A5 


86 




LDA 


$86 




F1B3 


48 






PHA 






F1B4 


49 


01 




LDA 


#$01 


t X at Is COUiltei 


F1B6 


85 


86 




STA 


$86 




F1B8 


AD 


85 


FE 


LDA 


SFE85 


io f uitectoxy txaCK 


F1BB 


38 






SEC 






FlBC 


E5 


86 




SBC 


$86 


minub countex 


F1BE 


85 


80 




STA 


$80 


sstve 3S track number 


F1C0 


90 


09 




BCC 


SF1CB 


result < = zero? 


F1C2 


FO 


07 




BEO 


$F1CB 


then try top half of dir 


F1C4 


20 


11 


F0 


JSR 


$F011 


una dam rieia tor tnis tracK 


F1C7 


Bl 


6D 




LDA 


($6D) ,Y 


nr\ r»f F rae* h 1 or* ke in t"h*iQ rai^ W 

1 LU « U J- 1_ X, ee kJ X \^ rv O X 1 1 Lil 19 L. L a l\ 


F1C9 


DO 


IB 




BNE 


SF1E6 


free blocks exist 


F1CB 


AD 


85 


FE 


LDA 


$FE85 


18, directory track 


F1CE 


18 






CLC 






F1CF 


65 


86 




ADC 


$86 


plus counter 


F1D1 


85 


80 




STA 


$80 


save as track number 


F1D3 


E6 


86 




INC 


$86 


increment counter 


F1D5 


CD 


D7 


FE 


CMP 


$FED7 


36, max track number plus one 


F1D8 


90 


05 




BCC 


$F1DF 


smaller, then ok 
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F1DA 


A9 


67 




LDA 


#$67 




F1DC 


20 


45 


E6 


JSR 


SE645 


67, 'illegal track or sector' 


F1DF 


20 


11 


FO 


JSR 


$F011 


find BAM field for this track 


F1E2 


Bl 


6D 




LDA 


($~6D) ,Y 


no. of free blocks in this track 


Fl E4 


F0 


D2 




BEO 


SF1BB 


no more free blocks? 


F1E6 


68 






PLA 






F1E7 


85 


86 




STA 


$86 




F1E9 


A9 


00 




LDA 


#$00 




F1EB 


85 


81 




STA 


$81 


sector 


F1ED 


20 


FA 


Fl 


JSR 


$F1FA 


find free sector 


FIFO 


F0 


03 




BEO 


$F1F5 


not found? 


F1F2 


4C 


90 


EF 


JMP 


$EF90 


allocate block in BAM 


F1F5 


A9 


71 




LDA 


#$71 




F1F7 


20 


45 


E6 


JSR 


SE645 


71, 'dir error' 


****************************** 


find free sectors in actual track 


FIFA 


20 


11 


FO 


JSR 


SF011 


find BAM field for this track 


FIFO 


98 






TYA 




points to # of free blocks 


FIFE 


48 






PHA 




F1FF 


20 


20 


F2 


JSR 


SF220 


verify BAM 


F202 


A5 


80 




LDA 


$80 


track 


F204 


20 


4B 


F2 


JSR 


$F24B 


get max # of sectors of the track 


F207 


8D 


4E 


02 


STA 


S024E 


save 


F20A 


68 






PLA 






F20P 


85 


6F 




STA 


$6F 


save pointer 


F20D 


A5 


81 




LDA 


$81 


compare sector 


F20F 


CD 


4E 


02 


CMP 


$024E 


with maximum number 


F212 


B0 


09 




BCS 


$F21D 


greater than or equal to? 


F214 


20 


D5 


EF 


JSR 


$EFD5 


get bit number of sector 


F217 


DO 


06 




BNE 


SF21F 


sector free? 


F219 


E6 


81 




INC 


$81 


increment sector number 


F21B 


DO 


FO 




BNE 


SF20D 


and check if free 


F21D 


A9 


00 




LDA 


#$00 


no sectors free 


F21F 


60 






RTS 






****************************** 


verify no. of free blocks in BAM 


F220 


A5 


6F 




LDA 


$6F 


F222 


48 






PHA 






F223 


A9 


00 




LDA 


#$on 




F225 


85 


6F 




STA 


$6F 


counter to zero 


F227 


AC 


86 


FE 


LDY 


$FE86 


4, no. of bytes per track in BAM 


F22A 


88 






DEY 






F22B 


A2 


07 




LDX 


#$07 




F22D 


Bl 


6D 




LDA 


($6D) ,Y 




F22F 


3D 


E9 


EF 


AND 


$EFE9,X 


isolate bit 


F232 


FO 


02 




BEO 


SF236 




F234 


E6 


6F 




INC 


$6F 


increment counter of free sectors 


F236 


CA 






DEX 






F237 


10 


F4 




BPL 


$F22D 




F239 


88 






DEY 






F23A 


DO 


EF 




BNE 


$F22B 




F23C 


Bl 


6D 




LDA 


( $6D) ,Y 


compare with number on diskette 


F23E 


C5 


6F 




CMP 


$6F 




F240 


DO 


04 




BNE 


$F246 


not equal, then error 
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F242 


68 






PLA 






F243 


85 


6F 




STA 


$6F 




F245 


60 






RTS 






F246 


A9 


71 




LDA 


#$71 




F248 


20 


45 


E6 


JSR 


$E645 


71 , 'dir error' 


****************************** 


establish # of sectors per trac 


F24B 


AE 


D6 


FE 


LDX 


$FED6 


4 different values 


F24E 


DD 


D6 


FE 


CMP 


$FED6,X 




F251 


CA 






DEX 






F252 


BO 


FA 




BCS 


$F24E 


not greater? 


F254 


BD 


Dl 


FE 


LDA 


SFED1,X 


get number of sectors 


F257 


60 






RTS 






F258 


60 






RTS 






****************************** 


initialize disk controller 


F259 


A9 


6F 




LDA 


#$6F 


bit 4 (write prot) & 7 (SYNC) 


F25B 


8D 


02 


1C 


STA 


$1C02 


data direction register port B 


F25E 


29 


F0 




AND 


#$F0 




F260 


8D 


00 


1C 


STA 


$1C00 


port Br control port 


F263 


AD 


OC 


1C 


LDA 


$1C0C 


PCRf control register 


F266 


29 


FE 




AND 


#$FE 




F268 


09 


0E 




ORA 


#$0E 




F26A 


09 


EO 




ORA 


#$E0 




F26C 


8D 


OC 


1C 


STA 


S1C0C 




F26F 


A9 


41 




LDA 


#541 




F271 


8D 


OB 


1C 


STA 


S1C0B 


timer 1 free running , enable 


F274 


A9 


00 




LDA 


#$00 


port A latch 


F276 


8D 


06 


1C 


STA 


$1C06 


timer 1 lo latch 


F279 


A9 


3A 




LDA 


#$3A 




F27B 


8D 


07 


1C 


STA 


$1C07 


timer 1 hi latch 


F27E 


8D 


05 


1C 


STA 


$1C05 


timer 1 hi 


F281 


A9 


7F 




LDA 


#$7F 




F283 


8D 


OE 


1C 


STA 


$1C0E 


erase IRQs 


F286 


A9 


CO 




LDA 


#$C0 




F288 


8D 


OD 


1C 


STA 


$1C0D 




F28B 


8D 


OE 


1C 


STA 


$1C0E 


IER f allow interrupts 


F28E 


A9 


FF 




LDA 


#$FF 




F290 


85 


3E 




STA 


$3E 




F292 


85 


51 




STA 


$51 


track counter for f ormat t i ng 


F294 


A9 


08 




LDA 


#$08 


8 


F296 


85 


39 




STA 


$39 


V* w HQ Lnil 1^9 J» V-/ J. \JJm \J IV 1 LC UUC L 


F298 


A9 


07 




LDA 


#$07 


7 


F29A 


85 


47 




STA 


$47 


fntiQhanhQ f nr 1~ 3 hi i"*f* W 


F29C 


A9 


05 




LDA 


#$05 




F29E 


85 


62 




STA 


$62 




F2A0 


A9 


FA 




LDA 


#$FA 


pointer $62/$63 to $FA05 


F2A2 


85 


63 




STA 


$63 




F2A4 


A9 


C8 




LDA 


#$C8 


200 


F2A6 


85 


64 




STA 


$64 




F2A8 


A9 


04 




LDA 


#$04 




F2AA 


85 


5E 




STA 


$5E 




F2AC 


A9 


04 




LDA 


#$04 




F2AE 


85 


6F 




STA 


$6F 
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****************************** IRQ routine for disk controller 



F2B0 


BA 






1 OA 






F2B1 


OD 






CTY 
O 1 A 


C A Q 


save stack pointer 


F2B3 


AD 


04 


1C 


LDA 


$1C04 


F2B6 


AD 


oc 


1C 


LDA 




erase interrupt flag from tinier 


F2B9 


09 


0E 




no a 


r?U£i 


F2BB 


8D 






STA 






F2BE 


AO 


05 




LDY 


#$05 




F2C0 


B9 


00 


00 


LDA 


$0000, Y 


command for buffer Y? 


F2C3 


10 


2E 




BPL 


$F2F3 


no 


F2C5 








CMP 


41 fi nn 
ff p DU 


exec, code for program in buffer 


F2C7 


DO 


04 




BNE 


S F 2CD 


no 


F2C9 


98 






TYA 






F2CA 


4C 


70 


F3 


JMP 


$F370 


CAC^U tC U/LKJiJ L CLill ±11 UU [[CI 


F2CD 


29 


01 




AND 


ft<$m 


isolate drive number 


F2CF 


F0 


07 




BE0 


CpOnO 
?rt ijo 


ULlve ZerO> 


F2D1 


84 


3F 




STY 


$3F 




F2D3 


A9 


OF 




LDA 


#$0F 


else 


F2D5 


4C 


69 


F9 


JMP 


$F969 


74, 'drive not ready' 


F2D8 


AA 






TAX 






F2D9 


85 


3D 




STA 






F2DB 


C5 


3E 




CMP 


p J Ci 


motor running? 


F2DD 


F0 


OA 




BEO 


$F2E9 


yes 


F2DF 


20 


7E 


F9 


JSR 


SF97E 


turn drive motor on 


F2E2 


A5 


3D 




LDA 


$3D 




F2E4 


85 


3E 




STA 


S 3E 


set flag 


F2E6 


4C 


9C 


F9 


JMP 


SF99C 


to j ob loop 


F2E9 


A5 


20 




LDA 


$ 20 




F2EB 


30 


03 




BMI 


$F2F0 


head transport programmed? 


F2ED 


OA 






ASL 






F2EE 


10 


09 




BPL 


$F2F9 




F2F0 


4C 


9C 


F9 


JMP 


$F99C 


I-.VJ J KJl~> xuu^ 


F2F3 


88 






DEY 






F2F4 


10 


CA 




BPL 


$ F2C0 


ciicck next uuiisr 


F2F6 


4C 


9C 


F9 


JMP 


$ F99C 




F2F9 


A9 


20 




LDA 


#$20 




F2FB 


85 


20 




STA 


$ 20 


\j l *-*y i. ct in i ica u ll diioyui. i_ 


F2FD 


AO 


05 




LDY 




F2FF 


84 


3F 




STY 




initialize uuieci counter 


F301 


20 


93 


F3 


JSP 


$F393 


^ At* nni nhor in hi i f F & *■ 


F304 


30 


1A 




BMI 


$F320 


command for buffer? 


F306 


C6 


3F 




DEC 


S3F 


decrement counter 


F308 


10 


F7 




BPL 


SF301 


check next buffer 


F30A 


A4 


41 




LDY 


$41 


buffer number 


F30C 


20 


95 


F3 


JSR 


$F395 


set pointer in buffer 


F30F 


A5 


42 




LDA 


$42 


track difference for last job 


F311 


85 


4A 




STA 


$4A 


as counter for head transport 


F313 


06 


4A 




ASL 


$4A 




F315 


A9 


60 




LDA 


#$60 


set flag for head transport 


F317 


85 


20 




STA 


$20 
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F319 


Bl 


32 




LDA 


($32) ,Y 


get track number from buffer 


F31B 


85 


22 




STA 


$22 




F31D 


4C 


9C 


F9 


JMP 


SF99C 


to job loop 


F320 


29 


01 




AND 


#$01 


isolate drive number 


F322 


C5 


3D 




CMP 


$3D 


equal drive number of last job? 


F324 


DO 


EO 




BNE 


SF306 


no 


F326 


A5 


22 




LDA 


$22 


last track number 


F328 


FO 


12 




BEO 


$F33C 


equal zero? 


F32A 


38 






SEC 






F32B 


Fl 


32 




SBC 


($32) ,y 


equal track number of this job? 


F32D 


FO 


OD 




BEO 


$F33C 


yes 


F32F 


49 


FF 




EOR 


#$FF 




F331 


85 


42 




STA 


$42 




F333 


E6 


42 




INC 


$42 




F335 


A5 


3F 




LDA 


$3F 


drive number 


F337 


85 


41 




STA 


$41 




F339 


4C 


06 


F3 


JMP 


$F306 




E33C 


A2 


04 




LDX 


#$04 




F33E 


Bl 


32 




LDA 


( $32) , Y 


track number of the job 


F340 


85 


40 




STA 


$40 


save 


F342 


DD 


D6 


FE 


CMP 


$FED6 ,X 


compare with max track number 


F345 


CA 






DEX 






F346 


BO 


FA 




BCS 


SF342 


greater? 


F348 


8D 


Dl 


FE 


LDA 


$FED1 ,X 


get # of sectors per track 


F34B 


85 


43 




STA 


$43 


and save 


F34D 


8A 






TXA 






F34E 


OA 






ASL 


A 




F34F 


OA 






ASL 


A 




F350 


OA 






ASL 


A 




F351 


OA 






ASL 


A 




F352 


OA 






ASL 


A 




F353 


85 


44 




STA 


$44 


gives 0, 32, 64, 96 


F355 


AD 


00 


1C 


LDA 


$1C00 




F358 


29 


9F 




AND 


#$9F 




F35A 


05 


44 




ORA 


$44 


generate control byte for notor 


F35C 


8D 


00 


1C 


STA 


$1C00 




F35F 


A6 


3D 




LDX 


$3D 




F361 


A5 


45 




LDA 


$45 


command code 


F363 


C9 


40 




CMP 


#$40 


position head? 


F365 


FO 


15 




BEO 


$F37C 


yes 


F367 


C9 


60 




CMP 


#$60 


command code for prg execution? 


F369 


FO 


03 




BEO 


$F36E 


yes 


F36B 


4C 


Bl 


F3 


JMP 


$F3B1 


read block header 



****************************** execute program in buffer 



F36E 


A5 


3F 


LDA 


$3F 


buffer number 


F370 


18 




CLC 






F371 


69 


03 


ADC 


#S03 


plus 3 


F373 


85 


31 


STA 


$31 


F375 


A9 


00 


LDA 


#$00 


equals address of buffer 


F377 


85 


30 


STA 


$30 


F379 


6C 


30 00 


JMP 


($0030) 


execute program in buffer 



****************************** position head 
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F37C 


A9 


60 




LDA 


#$60 


F37E 


85 


20 




STA 


$20 


F380 


AD 


00 


1C 


LDA 


$1C00 


F383 


29 


FC 




AND 


#$FC 


F385 


8D 


00 


1C 


STA 


$1C00 


F388 


A9 


A4 




LDA 


#$A4 


F38A 


85 


4A 




STA 


$4A 


F38C 


A9 


01 




LDA 


#$01 


F38E 


85 


22 




STA 


$22 


F390 


AC 


69 


F9 


JMP 


$F969 


***************************** 


F393 


A4 


3F 




LDY 


$3F 


F395 


B9 


00 


00 


LDA 


$0000, Y 


F398 


48 






PHA 




F399 


10 


10 




BPL 


$F3AB 


F39B 


29 


78 




AND 


#$78 


F39D 


85 


45 




STA 


$45 


F39F 


98 






TYA 




F3A0 


OA 






ASL 


A 


F3A1 


69 


06 




ADC 


#$06 


F3A3 


85 


32 




STA 


$32 


F3A5 


98 






TYA 




F3A6 


18 






CLC 




F3A7 


69 


03 




ADC 


#$03 


F3A9 


85 


31 




STA 


$31 


F3AB 


AO 


00 




LDY 


#$00 


F3AD 


84 


30 




STY 


$30 


F3AF 


68 






PLA 




F3B0 


60 






RTS 




****************************** 


F3B1 


A2 


5A 




LDX 


#$5A 


F3B3 


86 


4B 




STX 


$4B 


F3B5 


A2 


00 




LDX 


#$00 


F3B7 


A9 


52 




LDA 


#$52 


F3B9 


85 


24 




STA 


$24s 


F3BB 


20 


56 


F5 


JSR 


$F556 


F3BE 


50 


FE 




BVC 


$F3BE 


F3C0 


B8 






CLV 




F3C1 


AD 


01 


1C 


LDA 


$1C01 


F3C4 


C5 


24 




CMP 


$24 


F3C6 


DO 


3F 




BNE 


$F407 


F3C8 


50 


FE 




BVC 


$F3C8 


F3CA 


B8 






CLV 




F3CB 


AD 


01 


1C 


LDA 


S1C01 


F3CE 


95 


25 




STA 


$25, X 


F3D0 


E8 






INX 




F3D1 


E0 


07 




CPX 


#$07 


F3D3 


DO 


F3 




BNE 


SF3C8 


F3D5 


20 


97 


F4 


JSR 


SF497 


F3D8 


AO 


04 




LDY 


#$04 


F3DA 


A9 


00 




LDA 


#$00 


F3DC 


59 


16 


00 


EOR 


$0016, Y 


F3DF 


88 






DEY 





set flag for head transport 
turn stepper motors on 
164 

step counter for head transport 

track number 
ok 

initialize pointer in buffer 
buffer number 
command code 
save 

erase bits 0,1,2, and 7 

buffer number 
times two 
plus 6 

equals pointer to actual buffer 
buffer number 

plus 3 

equals buffer address hi 

buffer address lo 
get command code back 



read block header, verify ID 
90 

counter 
82 

wait for SYNC 
byte ready? 

data from read head 

20, 'read error' 
byte ready? 

data byte from disMblock header) 
save 7 bytes 



continue reading 
4 bytes plus parity 
form checksum for header 
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F3E0 


10 


FA 




BPL $F3DC 




F3E2 


C9 


00 




CMP #5 00 


parity ok? 


F3E4 


DO 


38 




BNE >F41b 


£ 1 t LedU t?ttUt 


F3E6 


A6 


3E 




LDX S3E 


drive nuntber 


F3E8 


A4 


18 




LDA $ 1 8 


+- v ^ If mimhiiT" hoaHot* 

LLaCK nuitlOcir UI lledUCL 


F3EA 


95 


22 




pips COO V 


ncc ae arhnfll t*vair , k niimhpT" 


F3EC 


A5 


4 5 




LDA $ 4 5 




F3EE 


C9 


30 




own ji e? O A 

CMP #530 


COGS tot preSei ve neduvi; 


F3F0 


F0 


IE 




BE0 5F410 


preserve hsader 


F3F2 


A5 


3E 




LDA $3E 




F3F4 


OA 






ASL A 




F3F5 


A8 






TAY 




F3F6 


B9 


12 


00 


LDA SOOlZfi 




F3F9 


C5 


16 




CMP $16 


r—fimn a* v a ui h tl TH1 
cumpatc Wttll 1U1 


F3FB 


DO 


IE 




BNE 9C4ID 




F3FD 


B9 


13 


00 


LDA $0013, Y 




F400 


C5 


17 




CMP $17 


compare with ID2 


F402 


DO 


17 




BNE $F41B 




F404 


4C 


23 


F4 


JMP $F423 




F407 


C6 


4B 




DEC $4B 


decrement counter for at tempts 


F409 


DO 


BO 




BNE $F3BB 


ailU t x. y cty ct x n 


F40B 


A9 


02 




LDA #$02 


eXse 


F40D 


20 


69 


F9 


JSR $F969 


Ofl ' road orrrn* ' 


****************************** 


L>L CSCL V C UiU^^ ncauct 


F410 


A5 


16 




LDA $16 


ml 


F412 


85 


12 




STA $12 




F414 


A5 


17 




LDA $17 


and ID2 


F416 


85 


13 




STA $13 


preserve 


F418 


A9 


01 




LDA #$01 


OK 


F41A 


2C 






.BYTE $2C 




F41B 


A9 


OB 




LDA #$0B 


z? f uxsK xo mxsmcic^ri 


F41D 


2C 






.BYTE $2C 




F41E 


A9 


09 




LDA #$09 


£. I t write ertot 


F420 


4C 


69 


F9 


JMP $F969 


done 


****************************** 




F423 


A9 


7F 




LDA #$7F 




F425 


85 


4C 




STA $4C 




F427 


A5 


19 




LDA $19 




F429 


18 






CLC 




F42A 


69 


02 




ADC #$02 




F42C 


C5 


43 




CMP $43 




F42E 


90 


02 




BCC SF432 




F430 


E5 


43 




SBC $43 




F432 


85 


4D 




STA S4D 




F434 


A2 


05 




LDX #$05 




F436 


86 


3F 




STX $3F 




F438 


A2 


FF 




LDX #$FF 




F43A 


20 


93 


F3 


JSR $F393 


set buffer ptr for disk contro 


F43D 


10 


44 




BPL SF483 




F43F 


85 


44 




STA $44 




F441 


29 


01 




AND #$01 




F443 


C5 


3E 




CMP $3E 
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F4 45 


DO 


3C 




BNE 


$F483 


F447 


AO 


00 




LDY 


#$00 


F4 49 


Bl 


3 2 




LDA 


($32) 


F4 4 B 


C5 


40 




CMP 


$40 


F4 4D 


nn 
DU 






BNE 


$F483 


F44F 


A5 


45 




LDA 


$45 


PA C 1 

r 4D1 


Ly 


60 




CMP 


#$60 


PA T 
C 4D J 


FO 


OC 




BE0 


$F461 


t?A CC 
r 4DD 


AU 


01 




LDY 


#$01 


F4 57 


38 






SEC 




I? A 

P 4 DO 


D 1 
Bl 


J Z 




LDA 


( $32) 


r 4 OA 


E5 


4D 




SBC 


$4D 


r 4D(, 


10 


03 




BPL 


$F461 


PA £ 17 

r 4 Dfc 


1 Q 
lb 






CLC 




PA <^P 
r 4 r 


O O 


A "2 




ADC 


c A n 

543 


r ft O 1 


C4 


A n 




CMP 


S4C 


PAfi 1 




1 ti 




BCS 


$F483 


pa £ 

f 4dj 


a a 






PHA 




F466 


AD 


A R 
4 D 




LDA 


$45 


rioo 


pn 


14 




BEQ 


5F47E 


r 4 OA 


DO 






PLA 




F46B 


C9 


09 




CMP 


#$09 


pa An 


y u 


1 A 
14 




BCC 


$F483 


F46 F 


C9 


OC 




CMP 


#$0C 


F471 


DU 


1 u 




BCS 


$F483 


F4 7 3 


D 


A/" 1 
'it- 




STA 


$4C 


F475 


AC 


TP 




LDA 


C "3 C 1 


PA "7 7 


AA 






TAX 




F478 


o y 


U j 




ADC 


#$03 


F47A 


O D 






CTA 
b 1 A 




F47C 


DO 


05 




BNE 


$F483 


F47E 


68 






PLA 




F47F 




U O 




CMP 




F48 1 


y u 


pn 




DLL 


$> r 4 / J 


F483 




T p 




UtliL 


C "3 P 


F485 


10 


B3 




BPL 


$F43A 


F487 


8A 






TXA 




PA D Q 
Moo 


i rt 
IU 


U j 




BPL 


$F48D 


PA Q a 


A l" 1 
4L 




t y 


JMP 


$ F9 9C 


F4 8 D 


ft 




TP 




STX 


P j r 


F48F 


20 


93 


F3 


JSP 


$F393 


F49 2 


A5 


45 




LDA 


$45 


F4 9 4 


4C 


CA 


F4 


JMP 


$F4CA 


P/1 Q *7 


A5 






LDA 


$ 30 


F499 


48 






rLrt 




F49A 


A5 


31 




LDA 


$31 


F49C 


48 






PHA 




F49D 


A9 


24 




LDA 


#$24 


F49F 


85 


30 




STA 


S30 


F4A1 


A9 


00 




LDA 


#$00 


F4A3- 


85 


31 




STA 


$31 


F4A5 


A9 


00 




LDA 


#$00 


F4A7 


85 


34 




STA 


$34 



command code 



to job loop 

get buffer number 
command code 
continue checking 

save pointer $30/$31 
pointer S30/$31 to $24 
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F4A9 


20 


E6 


F7 


J SR 


$ F7 E6 




F4AC 


A5 


55 




LDA 


cce 
553 




F4AE 


85 


18 




STA 


$18 




F4B0 


A5 


54 




LDA 


5 54 




F4B2 


85 


19 




STA 


( 1 o 

$19 




F4B4 


A5 


53 




LDA 


$53 




F4B6 


85 


1A 




STA 


51A 




F4B8 


20 


E6 


F7 


JSR 


$F7E6 




F4BB 


A5 


52 




LDA 


$52 




F4BD 


85 


17 




STA 


$17 




F4BF 


A5 


53 




LDA 


$53 




F4C1 


85 


16 




STA 


$16 




F4C3 


68 






PLA 






F4C4 


85 


31 




STA 


$31 




F4C6 


68 






PLA 




get pointer $30/$31 back 


F4C7 


85 


30 




STA 


$30 




F4C9 


60 






RTS 






****************************** 




F4CA 


C9 


00 




CMP 


#$00 


fnmmanri pnrip for 'r"Pfl(i*'' 


F4CC 


F0 


03 




BEO 


SF4D1 




F4CE 


4C 


6E 


F5 


JMP 


$F56E 


1 l> X I1U C ^«lld*rhXliy ^UH'lliauw ^vUC 


F4D1 


20 


OA 


F5 


JSR 


$F50A 


J.XHU kjcy x i hi x ny ui> uolo mxvva 


F4D4 


50 


FE 




BVC 


SF4D4 


uyte icauy i 


F4D6 


B8 






CLV 






F4D7 


AD 


01 


1C 


LDA 


$1C01 


yet oata uy te 


F4DA 


91 


30 




STA 


($30), Y 


3 n t.t r l f Q t r\ huff or 

anu write in uuilci 


F4DC 


C8 






INY 




OC,£ 4- i ma c: 

zjo t lmes 


F4DD 


DO 


F5 




BNE 


$F4D4 




F4DF 


AO 


BA 




LDY 


#$BA 




F4E1 


50 


FE 




BVC 


$F4E1 


V\ * r 4- o roariu? 


F4E3 


B8 






CLV 






F4E4 


AD 


01 


1C 


LDA 


$1C01 


reaU uytco 


F4E7 


99 


00 


01 


STA 


$0100, Y 


from $1BA to $1FF 


F4EA 


C8 






INY 






F4EB 


DO 


F4 




BNE 


SF4E1 




F4ED 


20 


EO 


F8 


JSR 


$F8E0 




F4F0 


A5 


38 




LDA 


$38 




F4F2 


C5 


47 




CMP 


$47 


equal / t ijeginning <ji aata uiouiw 


F4F4 


F0 


05 




BEO 


$F4FB 


yes 


F4F6 


A9 


04 




LDA 


#$04 


22 1 1 read error 


F4F8 


4C 


69 


F9 


JMP 


$F969 


error termination 


F4FB 


20 


E9 


F5 


JSR 


$F5E9 


calculate parity of data block 


F4FE 


C5 


3A 




CMP 


$3A 


agreement? 


F500 


FO 


03 




BEO 


SF505 


yes 


F502 


A9 


05 




LDA 


#$05 


23, 'read error 1 


F504 


2C 






•BYTE S2C 




F505 


A9 


01 




LDA 


#$01 


ok 


F507 


4C 


69 


F9 


JMP 


$F969 


prepare error message 


****************************** 


find start of data block 


F50A 


20 


10 


F5 


JSR 


SF510 


read block header 


F50D 


4C 


56 


F5 


JMP 


$F556 


wait for SYNC 
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****************************** read block header 



F510 


A5 


3D 




LDA 


$3D 


drive number 


F512 


OA 






ASL 


A 




P513 


AA 






TAX 






F514 


B5 


12 




LDA 


$12,X 


IDl 


F516 


85 


16 




STA 


$16 


save 


F518 


B5 


13 




LDA 


$13, X 


ID2 


F51A 


85 


17 




STA 


$17 


save 


F51C 


AO 


00 




LDY 


#$00 




F51E 


Bl 


32 




LDA 


($32) ,Y 


get track and 


F520 


85 


18 




STA 


$18 


F522 


C8 






INY 






F523 


Bl 


32 




LDA 


($32) ,Y 


sector number from buffer 


F525 


85 


19 




STA 


$19 




F527 


A9 


00 




LDA 


#$00 




F529 


45 


16 




EOR 


$16 




F52B 


45 


17 




EOR 


$17 


calculate parity for block header 


F52D 


45 


18 




EOR 


$18 


F52F 


45 


19 




EOR 


$19 




F531 


85 


1A 




STA 


$1A 


and save 


F533 


20 


34 


F9 


JSR 


SF934 




F536 


A2 


5A 




LDX 


#$5A 


90 attempts 


F538 


20 


56 


F5 


JSR 


$F556 


wait for SYNC 


F53B 


AO 


00 




LDY 


#$00 




F53D 


50 


FE 




BVC 


SF35D 


byte ready? 


F53F 


B8 






CLV 




F540 


AD 


01 


1C 


LDA 


51C01 


read data from block header 


F543 


D9 


24 


00 


CMP 


$0024 , Y 


v^wiupa j_ wxl.ii oq Vcu Uq La 


FS46 


DO 


06 




BNE 


$F54E 


not the same, try again 


F548 


C8 






INY 




F549 


CO 


08 




CPY 


#$08 


8 bytes read? 


F54B 


DO 


FO 




BNE 


$F53D 


no 


F54D 


60 






RTS 






F54E 


CA 






DEX 




decrement counter 


F54F 


DO 


E7 




BNE 


$F538 


not yet zero? 


F551 


A9 


02 




LDA 


#$02 


F553 


4C 


69 


F9 


JHP 


SF969 


20, "read error' 


****************************** 


wait for SYNC 


F556 


A9 


DO 




LDA 


#$D0 


208 


F558 


8D 


05 


18 


STA 


$1805 


start timer 


F55B 


A9 


03 




LDA 


#$03 


error code 


F55D 


2C 


05 


18 


BIT 


$1805 




F560 


10 


Fl 




BPL 


$F553 


timer run down, then 'read error' 


F562 


2C 


00 


1C 


BIT 


$1C00 


SYNC signal 


F565 


30 


F6 




BMI 


$F55D 


not yet found? 


F567 


AD 


10 


1C 


LDA 


$1C01 


read byte 


F56A 


B8 






CLV 




F56B 


AO 


00 




LDY 


#$00 




F56D 


60 






RTS 







****************************** 

F56E C9 10 CMP #$10 command code for 'write' 
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F570 


' FO 


03 




BE0 


$F575 




yes 


F572 


4C 


91 


F6 


JMP 


$F691 




con t inue check ing command code 


****************************** 


write data block to disk 


F575 


20 


E9 


F5 


JSR 


$F5E9 




calculate parity for buffer 


F57B 


85 


3A 




STA 


$3A 




and save 


F57A 


AD 


00 


1C 


LDA 


$1C00 




read port B 


F57D 


29 


10 




AND 


#$10 




isolate bit for 1 write protect 1 


F57F 


DO 


05 




BNE 


$F586 




not set, ok 


F581 


A9 


08 




LDA 


#$08 






F583 


4C 


69 


F9 


JMP 


$F969 




26 1 1 write protect 1 


F586 


20 


8F 


F7 


JSR 


$F78F 






F589 


20 


10 


F5 


JSR 


$F510 




find block header 


F58C 


A2 


09 




LDX 


#$09 






F58B 


50 


FE 




BVC 


$F58E 




byte ready? 


F590 


B8 






CLV 








F591 


CA 






DEX 








F592 


DO 


FA 




BNE 


$F58E 






F594 


A9 


FF 




LDA 


#$FF 






F596 


8D 


03 


1C 


STA 


$1C03 




port A (write/read head) to 


F599 


AD 


OC 


1C 


LDA 


$1C0C 




to output 


F59C 


29 


IF 




AND 


#$1F 






F59E 


09 


CO 




ORA 


#$CO 




change PCR to output 


F5A0 


8D 


OC 


1C 


STA 


S1C0C 






F5A3 


A9 


FF 




LDA 


#$FF 






F5A5 


A2 


05 




LDX 


#$05 






F5A7 


8D 


01 


1C 


STA 


$1C01 




write $FF to disk 5 times 


F5AA 


B8 






CLV 








F5AB 


50 


FE 




BVC 


SF5AB 




as SYNC characters 


F5AD 


B8 






CLV 








F5AE 


CA 






DEX 








F5AF 


DO 


FA 




BNE 


$F5AB 






F5B1 


AO 


BB 




LDY 


#$BB 






F5B3 


B9 


00 


01 


LDA 


$0100, 


Y 


bytes S1BB to $1FF to disk 


F5B6 


50 


FE 




BVC 


$F5B6 






F5B8 


B8 






CLV 








F5B9 


8D 


01 


1C 


STA 


S1C01 






E D DV- 


C8 






INY 








F5BD 


DO 


F4 




BNE 


$F5B3 






F5BF 


Bl 


30 




LDA 


( $30 ) , 


Y 


write data buffer (256 bytes) 


F5C1 


50 


FE 




BVC 


SF5C1 






F5C3 


B8 






CLV 








F5C4 


8D 


01 


1C 


STA 


$1C01 






F5C7 


C8 






INY 








F5C8 


DO 


F5 




BNE 


$F5BF 






F5CA 


50 


FE 




BVC 


$F5CA 




byte ready? 


F5CC 


AD 


OC 


1C 


LDA 


$1C0C 






F5CF 


09 


EO 




ORA 


#$E0 




PCR to input again 


F5D1 


8D 


OC 


1C 


STA 


$1C0C 






F5D4 


A9 


00 




LDA 


#$00 






F5D6 


8D 


03 


1C 


LDA 


S1C03 




port A (read/write head) to input 


F5D9 


20 


F2 


F5 


JSR 


$F5F2 






F5DC 


A4 


3F 




LDY 


$3F 






F5DE 


B9 


00 


00 


LDA 


$0000, 


Y 
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F5E1 49 30 EOR #$30 convert command code 'write' 

F5E3 99 00 00 STA $0000, Y to 'verify' 
F5E6 4C Bl F3 JMP $F3B1 

****************************** calculate p ar i ty for data l>uffer 



F5E9 


A9 


00 


IiDA 


#$00 


F5EB 


A8 




TAY 




F5EC 


51 


30 


EOR 


( $30) ,Y 


F5EE 


C8 




INY 




F5EF 


DO 


FB 


BNE 


$F5EC 


F5F1 


60 




RTS 




F5F2 


A9 


00 


LDA 


#$00 


F5F4 


85 


2E 


STA 


$2E 


F5F6 


85 


30 


STA 


$30 


F5F8 


85 


4F 


STA 


$4F 


F5FA 


A5 


31 


LDA 


$31 


F5FC 


85 


4E 


STA 


$4E 


F5FE 


A9 


01 


LDA 


#$01 


F600 


85 


31 


STA 


$31 


F602 


85 


2F 


STA 


$2F 


F604 


A9 


BB 


LDA 


#$BB 


F606 


85 


34 


STA 


$34 


F608 


85 


36 


STA 


$36 


F60A 


20 


E6 F7 


JSP 


$F7E6 


F60D 


A5 


52 


LDA 


$52 


F60F 


85 


38 


STA 


$38 


F611 


A4 


36 


LDY 


$36 


F613 


A5 


53 


LDA 


$53 


F615 


91 


2E 


STA 


( S2E) , Y 


F617 


C8 




INY 




F618 


A5 


54 


LDA 


$54 


F61A 


91 


2E 


STA 


($2E) ,Y 


F61C 


C8 




INY 




F61D 


A5 


55 


LDA 


$55 


F61F 


91 


2E 


STA 


( $2E) , Y 


F621 


C8 




INY 




F622 


84 


36 


STY 


$36 


F624 


20 


E6 F7 


JSR 


$F7E6 


F627 


A4 


36 


LDY 


$36 


F629 


A5 


52 


LDA 


$ 52 


F62B 


91 


2E 


STA 


($2E) , Y 


F62D 


C8 




INY 




F62E 


A5 


53 


LDA 


$53 


F630 


91 


2E 


STA 


($2E) ,Y 


F632 


C8 




INY 




F633 


F0 


0E 


BEO 


SF643 


F635 


A5 


54 


LDA 


$54 


F637 


91 


2E 


STA 


($2E) ,Y 


F639 


C8 




INY 




F6 3A 


A5 


55 


LDA 


$55 


F63C 


91 


2E 


STA 


(S2E) ,Y 


F63E 


C8 




INY 




F63F 


84 


36 


STY 


$36 


F641 


DO 


El 


BNE 


$F624 
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F643 


A5 


54 




LDA 


$54 




F645 


91 


30 




STA 


($30) ,Y 




F647 


C8 






INY 






F648 


A5 


55 




LDA 


$55 




F64A 


91 


30 




STA 


($30) ,Y 




F64C 


C8 






INY 






F64D 


84 


36 




STY 


$36 




F64F 


20 


E6 


F7 


JSP 


$F7E6 




F652 


A4 


36 




LDY 


$36 




F654 


A5 


52 




LDA 


$52 




F656 


91 


30 




STA 


($30) ,Y 




F658 


C8 






INY 






F659 


A5 


53 




LDA 


$53 




F65B 


91 


30 




STA 


($30) ,Y 




F65D 


C8 






INY 






F65E 


A5 


54 




LDA 


$54 




F660 


91 


30 




STA 


($30) ,Y 




F662 


C8 






INY 






F663 


A5 


55 




LDA 


$55 




F665 


91 


30 




STA 


($30) ,Y 




F667 


C8 






. INY 






F668 


84 


36 




STY 


$36 




F66A 


CO 


BB 




CPY 


#$BB 




F66C 


90 


El 




BCC 


$F64F 




F66E 


A9 


45 




LDA 


#$45 




F670 


85 


2E 




STA 


$2E 




F672 


A5 


31 




LDA 


$31 




F674 


85 


2F 




STA 


$2F 




F676 


AO 


BA 




LDY 


#$BA 




F678 


Bl 


30 




LDA 


($30) ,Y 




F67A 


91 


2E 




STA 


($2E) ,Y 




F67C 


88 






DEY 






F67D 


DO 


F9 




BNE 


SF678 




F67F 


Bl 


30 




LDA 


($30) ,Y 




F681 


91 


2E 




STA 


($2E) ,Y 




"DO J 




OD 

Dd 




LiUA 






F685 


BD 


00 


01 


LDA 


$0100, X 




F688 


91 


30 




STA 


($30) ,Y 




F68A 


C8 






INY 






F68B 


F.8 






INX 






F68C 


DO 


F7 




BNE 


$F685 




F68E 


86 


50 




STX 


$50 




F690 


60 






P.TS 






****************************** 




F691 


C9 


20 




CMP 


#$20 


command code for 'verify'? 


F693 


F0 


03 




BEQ 


$F698 


yes 


F695 


4C 


CA 


F6 


JMP 


$F6CA 


continue checking command code 


F698 


20 


E9 


F5 


JSP. 


$F5E9 


calculate parity for data buffer 


F69B 


85 


3A 




STA 


$3A 


and save 


F69D 


20 


8F 


F7 


JSR 


$F78F 




F6A0 


20 


OA 


F5 


JSP. 


$F50A 


find start of data block 


F6A3 


AO 


BB 




LDY 


#$BB 




F6A5 


B9 


00 


01 


LDA 


$0100, Y 


data from buffer 
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F6A8 


50 


FE 




BVC 


$F6A8 


byte ready? 


F6AA 


B8 






CLV 




F6AB 


4D 


01 


1C 


EOR 


$1C01 


compare with data from disl 


F6AE 


DO 


15 




BNE 


$F6C5 


not equal, then error 


F6B0 


C8 






INY 




F6B1 


DO 


F2 




BNE 


$F6A5 




F6B3 


Bl 


30 




LDA 


($30) ,Y 


data from buffer 


F6B5 


50 


FE 




BVC 


$F6B5 




F6B7 


B8 






CLV 






F6B8 


4D 


01 


1C 


EOR 


$1C01 


compare with data from disl 


F6BB 


DO 


08 




BNE 


$F6C5 


not equal, then error 


F6BD 


C8 






INY 






F6BE 


CO 


FD 




CPY 


#$FD 




F6C0 


DO 


Fl 




BNE 


$F6B3 




F6C2 


4C 


18 


F4 


JMP 


$F418 


error free termination 


F6C5 


A9 


07 




LDA 


#$07 




F6C7 


4C 


69 


F9 


JMP 


$F969 


25, 'write error' 


****************************** 




F6CA 


20 


10 


F5 


JSR 


$F510 


read block header 


F6CD 


4C 


18 


F4 


JMP 


$F418 


done 


****************************** 




F6D0 


A9 


00 




LDA 


#$00 




F6D2 


85 


57 




STA 


$57 




F6D4 


85 


5A 




STA 


$5A 




F6D6 


A4 


34 




LDY 


$34 




F6D8 


A5 


52 




LDA 


$52 




F6DA 


29 


FO 




AND 


#$F0 


isolate hi-nibble 


F6DC 


4A 






LSR 


A 




F6DD 


4A 






LSR 


A 


and rotate to lower nibble 


F6DE 


4A 






LSR 


A 




F6DF 


4A 






LSR 


A 




F6E0 


AA 






TAX 




as index in table 


F6E1 


BD 


7F 


F7 


LDA 


$F77F,X 




F6E4 


OA 






ASL 


A 




F6E5 


OA 






ASL 


A 


times 8 


F6E6 


OA 






ASL 


A 




F6E7 


85 


56 




STA 


$56 




F6E9 


A5 


52 




LDA 


$52 




F6EB 


29 


OF 




AND 


#$0F 


isolate lower nibble 


F6ED 


AA 






TAX 




as index in table 


F6EE 


BD 


7F 


F7 


LDA 


$F77F,X 




F6F1 


6A 






ROR 


A 




F6F2 


66 


57 




ROR 


$57 . 




F6F4 


6A 






ROR 


A 




F6F5 


66 


57 




ROR 


$57 




F6F7 


29 


07 




AND 


#$07 




F6F9 


05 


56 




ORA 


$56 




F6FB 


91 


30 




STA 


($30) ,Y 


in buffer 


F6FD 


C8 






INY 




increment buffer 


F6FE 


A5 


53 




LDA 


$53 




F700 


29 


FO 




AND 


#$F0 


isolate upper nibble 


F702 


4A 






LSR 


A 
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F703 


4A 






LSR 


A 




F704 


4A 






LSR 


A 


shift to upper nibble 


F705 


4A 






LSR 


A 




F706 


AA 






TAX 




as index in table 


F707 


BD 


7F 


F7 


LDA 






F70A 


OA 






ASL 


A 




F70B 


AC 


C*7 




ORA 


93/ 




F70D 


85 


57 




STA 


OCT 




F70F 


A5 


c o 




LDA 


eco 




F711 


29 


OF 




AND 


IfpUF 


• kki 
lower nibble 


r / x J 


AA 






THY 
1AA 




as inucx 


F7 14 


BD 


/ r 


r / 


LDA 


C C"7 "7 TT V 




F717 


2A 






ROL 


A 




F718 


2A 






ROL 


A 




F719 


2A 






ROL 


A 




F71A 


2A 






ROL 


A 




F7 IB 


o c 


CO 
DO 




STA 


P Do 




F7 ID 


2A 






ROL 


A 




F71E 




U 1 




AND 






F7 20 


f\ c 


C*7 




ORA 


C C.7 




f / ZZ 


Q 1 


J u 




era 

Sin 




■in hi i f f p t* 

XII UULLCL 


r / ^4 








TMV 

in x 




lnLicinciii. uul Lei 


r / zo 


A3 






t na 


CCA 




C**7 0*7 
t / Z I 


Zj 


F0 




A Kilt 
AMU 




loUidLc in in uuxe 


F729 


A & 
4A 






LSR 


A 

A 




F72A 


4A 






LSR 


A 




F72B 


a a 
4A 








a 

A 




F7 2C 


4A 






LSR 


A 




C7 On 
C / ZD 


AA 






TAX 






F7 2E 


BD 


in 

/ r 


r / 


iiLJA 


C 1777 P V 




F731 


1 o 






CLC 






F732 


6A 






ROR 


A 




in -y -3 
f / JJ 


n c 

UD 


JO 






< co 

9 jo 




r / Jo 


Q 1 






bin 


/ c on \ v 


in i-txif for 
X n UU LlcL 


VI "3 "7 

c / 3 1 


Lo 






INY 




x nctcnic rit uuiiBi yunitcL 


F7 38 


C ft 

OA 






ROR 


A 




F7 39 


Zy 


oU 




AND 


icon 




F73B 


85 


59 




STA 


$59 




F73D 


A5 


C /I 

34 




LDA 


CCA 

?D4 




F73F 


29 


OF 




AND 


f $>UF 


lower nibble 


F741 


AA 






TAX 




as index 


F742 


BD 


7F 


F7 


LDA 


$>F / / fc f A 




F745 


OA 






ASL 


A 




F746 


OA 






ASL 


A 




F747 


29 


7C 




AND 


#$7C 




F749 


05 


59 




ORA 


$59 




F74B 


Q C 






CTB 
oln 


5j? 




F74D 


A5 


55 




LDA 


$55 




F74F 


29 


F0 




AND 


#$F0 


isolate hi-nibble 


F751 


4A 






LSR 


A 




F752 


4A 






LSR 


A 


shift to lower nibble 


F753 


4A 






LSR 


A 




F754 


4A 






LSR 


A 




F755 


AA 






TAX 




as index in table 


F756 


BD 


7F 


F7 


LDA 


$F77F,X 
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T?7 CO 


bA 




ROR 


A 




F75A 


66 


5A 


ROR 


$5A 




F75C 


6A 




ROR 


A 




F75D 


66 


5A 


ROR 


$5A 




F75F 


6A 




ROR 


A 




r / oU 


66 


5A 


ROR 


$5A 




1?*7 £ o 

r / 0/ 




n "3 
U J 


AND 


#$03 




r / o*k 


U3 


3? 


ORA 


$39 




r / do 


Q 1 


■?n 
ju 


STA 


/Clfl\ v 


in Duffer 


r / do 


Co 




INY 




increment buffer 


r / 0? 


uu 


u** 




?r / or 




F76B 


A5 


2F 


LDA 


$ 2F 




r / ojj 


Q E 




STA 


9-31 




r / or 


A3 




LDA 


933 




F771 


29 


OF 


AND 


#$0F 


lower nibble 


F773 


AA 




TAX 




as index 


F774 


BD 


7F F7 


LDA 


$F77F,X 




F777 


05 


5A 


ORA 


S5A 




F779 


91 


30 


STA 


($30), Y 


in buffer 


F77B 


C8 




INY 




increment buffer 


F77C 


84 


34 


STY 


$34 


and save 


F77E 


60 




RTS 







****************************** 

F77F OA 0B 12 13 0E OF 16 17 
F787 09 19 1A IB 0D ID IE 15 

****************************** 



F78F 


A9 


00 


LDA 


#300 


F791 


85 


30 


STA 


$30 


F793 


85 


2E 


STA 


$2E 


F795 


85 


36 


STA 


$36 


F797 


A9 


BB 


LDA 


#$BB 


F799 


85 


34 


STA 


$34 


F79B 


85 


50 


STA 


$50 


F79D 


A5 


31 


LDA 


$31 


F79F 


85 


2F 


STA 


$2F 


F7A1 


A9 


01 


LDA 


#$01 


F7A3 


85 


31 


STA 


$31 


F7A5 


A5 


47 


LDA 


$47 


F7A7 


85 


52 


STA 


$52 


F7A9 


A4 


36 


LDY 


$36 


F7AB 


Bl 


2E 


LDA 


<$2E) ,Y 


F7AD 


85 


53 


STA 


$53 


F7AF 


C8 




INY 




F7B0 


Bl 


2E 


LDA 


($2E) ,Y 


F7B2 


85 


54 


STA 


$54 


F7B4 


C8 




INY 




F7B5 


Bl 


2E 


LDA 


($2E) ,Y 


F7B7 


85 


55 


STA 


$55 


F7B9 


C8 




INY 




F7BA 


84 


36 


STY 


$36 


F7BC 


20 


DO F6 


JSR 


$F6D0 


F7BF 


A4 


36 


LDY 


$36 


F7C1 


Bl 


2E 


LDA 


($2E) ,Y 
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F7C3 


85 


52 


STA 


ceo 
P ->z 


r /CD 






THV 
1 IN I 




r /L.D 


FO 


li 


BEQ 


c P7 nQ 


F7C8 


til 


OP 

/hi 


LDA 


I 9 Z Ei J f I 


p"7pa 


OC 

o 3 


5.1 


CTA 


v 3 3 


r /LL 


nQ 
Lo 




TMV 




F7CD 


Dl 


OP 


t na 


t e op \ v 
v P ze* ; f I 


F7CF 


Q R 
O 3 


34 


Din 




r / ui 


PR 
l-O 




INY 




i?"7 r\0 
r / uz 


Rl 
Dl 


9P 
ZEi 


LDA 


/ C 1P\ V 

\ p z& ; f i 


F7D4 


85 


55 


STA 


$55 


F7D6 


C8 




INY 




F7D7 


nn 


PI 
EjI 


RMP 
DIN D 


C p7p,a 
P E / Dn 


p*7 no 
r / us 


a^. 


ia 
jn 


LDA 


<; ia 

p Jn 


p*7 nn 
r / ud 


O 3 


53 


STA 


S53 


r / uu 


AO 
ft? 


nn 


t na 

liUn 


a son 


F7 DF 


O 3 


5d 


era 

Din 


P 3*4 


F7E1 


Q C 

OJ 


cc 
33 


STA 


p 33 


P*7 Pi 


A P 


nn pfi 
uu r o 


TMD 


p r ouu 


r / to 


ad 




LDY 


v 3** 


F7 E8 


151 


in 


t na 


v 

I » JU / r 1 


F7EA 


no 


F8 


AND 




r l cc 


A a 




T GO 


a 

n 


p*7 pn 


J a 
**n 




T CD 


a 

n 


r / CiCj 


A & 




T CD 


a 

n 




DC 
O 3 


30 


STA 


$ 56 


r / r i 


ri 

Dl 


in 


LDA 


I ^n ^ v 


F7F3 


OQ 

zy 


u / 


AND 


ff P u / 


F7F5 


na 

Un 




a ct 


a 

n 


e / 1 o 


n a 




aGT 


a 


in pi 
r / r / 


QC 
3 


3 / 


era 

Din 


p 3 / 


P"7 PQ. 






THV 
1 W X 






nn 
uu 


nfi 
uo 


RMP 
DPI Ei 


e po AO 

P r o U Z 


P"7 PC 


A3 


ap 


t na 


$ 4E 


r / r £ 


o c 

O 3 


3 1 


Din 


p j i 


r ouu 


n<± 


dP 


t nv 


CdP 
P *i r 


C O U z 


Rl 
Dl 


in 


r na 


/ e in \ v 

V P JU / t X 


pq n a 


OQ 


LU 


AND 


ffpt-U 


pq nc 
r o Uo 


1 B 
zrt 




KtJJL< 


a 

n 


mom 
r oU / 


o a 




ROL 


A 


pq no 
r o Uo 


oa 

Zrt 




KUL 


a 

n 


pq n o 

r ouy 


AC 

U3 


C7 
3 / 


ORA 


P3 / 


F8 OB 


Q C 
03 


3 / 


STA 


P 3 / 


F80 D 


u 1 
Dl 


in 


LDA 


/ e in \ v 


F80F 


29 


3E 


AND 


#$3E 


PQ 1 1 

roil 


da 




T CD 
LiDK 


a 
n 


F812 


85 


58 


STA 


$58 


F814 


Bl 


30 


LDA 


($30) ,Y 


F816 


29 


01 


AND 


#$01 


F818 


OA 




ASL 


A 


F819 


OA 




ASL 


A 


F81A 


OA 




ASL 


A 


F81B 


OA 




ASL 


A 


F81C 


85 


59 


STA 


$59 
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F81E 


C8 






INY 




F81F 


Bl 


30 




LDA 


($30) ,Y 


F821 


29 


FO 




AND 


#SF0 


F823 


4A 






LSR 


A 


F824 


4A 






LSR 


A 


F825 


4A 






LSR 


A 


F826 


4A 






LSR 


A 


F827 


05 


59 




ORA 


$59 


F829 


85 


59 




STA 


$59 


F82B 


Bl 


30 




LDA 


($30) ,Y 


F82D 


29 


OF 




AND 


#$0F 


F82F 


OA 






ASL 


A 


F830 


85 


5A 




STA 


$5A 


F832 


C8 






INY 




F833 


Bl 


30 




LDA 


($30) ,Y 


F.835 


29 


80 




AND 


#$80 


F837 


18 






CLC 




F838 


2A 






ROL 


A 


F839 


2A 






ROL 


A 


F83A 


29 


01 




AND 


#$01 


F83C 


05 


5A 




ORA 


$5A 


F83E 


85 


5A 




STA 


$5A 


F840 


Bl 


30 




LDA 


($30), Y 


F842 


29 


7C 




AND 


#$7C 


F844 


4A 






LSR 


A 


F845 


4A 






LSR 


A 


F846 


85 


5B 




STA 


$5B 


F848 


Bl 


30 




LDA 


($30) ,Y 


F84A 


29 


03 




AND 


#$03 


F84C 


OA 






ASL 


A 


F84D 


OA 






ASL 


A 


F84E 


OA 






ASL 


A 


F84F 


85 


5C 




STA 


$5C 


F851 


C8 






INY 




F852 


DO 


06 




BNE 


$F85A 


F854 


A5 


4E 




LDA 


$4E 


F856 


85 


31 




STA 


$31 


F858 


A4 


4F 




LDY 


$4F 


F85A 


Bl 


30 




LDA 


($30) ,Y 


F85C 


29 


EO 




AND 


#$E0 


F85E 


2A 






ROL 


A 


F85F 


2A 






ROL 


A 


F860 


2A 






ROL 


A 


F861 


2A 






ROL 


A 


F862 


05 


5C 




ORA 


$5C 


F864 


85 


5C 




STA 


$5C 


F866 


Bl 


30 




LDA 


($30) ,Y 


F868 


29 


IF 




AND 


#$1F 


F86A 


85 


5D 




STA 


$5D 


F86C 


C8 






INY 




F86D 


84 


34 




STY 


$34 


F86F 


A6 


56 




LDX 


$56 


F871 


BD 


AO 


F8 


LDA 


SF8A0,X 


F874 


A6 


57 




LDX 


$57 


F876 


ID 


CO 


F8 


ORA 


$F8C0,X 
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F879 


85 


52 




STA 


$52 


F87B 


A6 


58 




LDX 


$58 


F87D 


BD 


AO 


F8 


LDA 


$F8A0 ,X 


F880 


A6 


59 




LDX 


$59 


F882 


ID 


CO 


F8 


ORA 


$F8C0 ,X 


F885 


85 


53 




STA 


$53 


F887 


A6 


5A 




LDX 


$5A 


F889 


BD 


AO 


F8 


LDA 


$F8A0,X 


F88C 


A6 


5B 




LDX 


$5B 


F88E 


ID 


CO 


F8 


ORA 


$F8C0,X 


F891 


85 


54 




STA 


$54 


F893 


A6 


5C 




LDX 


$5C 


F895 


BD 


AO 


F8 


LDA 


$F8A0 ,X 


F898 


A6 


5D 




LDX 


$5D 


F89A 


ID 


CO 


F8 


ORA 


$F8C0,X 


F89D 


85 


55 




STA 


$55 


F89F 


60 






RTS 





****************************** 

F8A0 FF FF FF FF FF FF FF FF 

F8A8 FF 80 00 10 FF CO 40 50 

F8B0 FF FF 20 30 FF FO 60 70 

F8B8 FF 90 AO BO FF DO EO FF 



F8C0 FF FF FF FF FF FF FF FF 

F8C8 FF 08 00 01 FF OC 04 05 

F8D0 FF FF 02 03 FF OF 06 07 

F8D8 FF 09 OA OB FF OD OE FF 



****************************** 



F8E0 


A9 


00 




LDA 


#$00 


F8E2 


85 


34 




STA 


$34 


F8E4 


85 


2E 




STA 


$2E 


F8E6 


85 


36 




STA 


$36 


F8E8 


A9 


01 




LDA 


#$01 


F8EA 


85 


4E 




STA 


$4E 


F8EC 


A9 


BA 




LDA 


#$BA 


F8EE 


85 


4F 




STA 


$4F 


F8F0 


A5 


31 




LDA 


$31 


F8F2 


85 


2F 




STA 


$2F 


F8F4 


20 


E6 


F7 


JSR 


$F7E6 


F8F7 


A5 


52 




LDA 


$52 


F8F9 


85 


38 




STA 


$38 


F8FB 


A4 


36 




LDY 


$36 


F8FD 


A5 


53 




LDA 


$53 


F8FF 


91 


2E 




STA 


($2E) ,Y 


F901 


C8 






INY 




F902 


A5 


54 




LDA 


$54 


F904 


91 


2E 




STA 


($2E) ,Y 


F906 


C8 






INY 




F907 


A5 


55 




LDA 


$55 


F909 


91 


2E 




STA 


($2E) ,Y 


F90B 


C8 






INY 




F90C 


84 


36 




STY 


$36 


F90E 


20 


E6 


F7 


JSR 


$F7E6 
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F9 11 


A4 


36 




LDY 


$36 


CO 1 o 


A5 


52 




LDA 


Sd2 


F915 


91 


2E 




STA 


( 52E) , Y 


F917 


C8 






INY 




r y lo 


FO 


1 1 
11 




BEQ 


O PO o d 

b r y zb 


F9 1A 


Ad 


D J 




LDA 


ceo 
bDJ 


F9 1C 


Q 1 

y l 


2E 




STA 


I S2EJ f I 


DQ 1 p 

r 7 1 Ci 








TMV 

in x 






ac 






LiDA 


* C4 


PQ 9 1 


Q 1 

7 1 


9P 




STA 


/ C9p \ v 


F9 23 








INY 




F924 


A5 


55 




LDA 


$55 


F9 26 


91 


2E 




STA 


($2E) f Y 


r y zo 


to 






INY 




PQ OQ 

r 7 <&7 


nn 

DU 


pi 




BNE 


c pq nr* 
9 r y u t. 


pq on 


a c 
AD 


C 




LDA 


ceo 


pq o n 


ft c 
D 






era 

Din 


< 1 a 

PJA 


POOP 
r j £. c 




9P 




r na 

Li LI A 


cop 


PQ 11 


ft C 
D 






CTft 


con 

9 J 1 




cn 

U 










F934 


A5 


31 




LDA 




pq ic 


ft c 


9P 




era 
o 1 A 


COP 


pq ift 


aQ 


uu 




t na 




pq o a 


ft C 
O D 


ji 




era 

bin 


COT 


pq or* 
r y jl. 


Ay 






LDA 


llCOil 

#bz4 


pQ-Jp 

r 7jc> 


& c 






STA 


b J4 


pq a n 
r y *k\) 


a r 


OQ 




LDA 


C OQ 

b jy 


PQ A 9 
r 7 *4 <t 


ft C 






bin 




F9 44 


as 

AD 


1 ft 
± A 




r na 


C 1 ft 
v 1 A 


PQ A f> 


ft C 
O D 


co 
jj 




era 


CCO 
yjJ 


F948 


A5 


19 




LDA 


OQ 


F94A 


85 


54 




STA 


PD*r 


F9 4C 


A5 


1 8 




r na 

Li U A 


CIO 
y io 


F94E 


85 


55 




STA 


etc 


pq c.n 
r 7 ju 


on 
z u 


nn 

DU 


PC 


TOD 
J OK 


c pc nn 
s> r o uu 


PQ C.1 

"7jj 


a q 

AD 


i / 




LDA 


bl / 


pQ C C 

r y DD 


ft C 
o D 


C T 




STA 


$52 


F957 


A5 


16 




LDA 


$16 


F959 


85 


53 




STA 


$53 


PQ Rd 


a q 
Ay 


nn 
uu 




LDA 


Tf b UU 


c73U 


ft c 

o D 


C. A 
D H 




era 

Din 


b Dfl 


PQ C P 


Q C 

O D 


C C 




STA 


bDD 




20 


nn 


Pfi 
r o 


T CD 


c pc nn 

v r D L/U 


PQ A 4 

r 70** 


a c 
AD 


Op 




LDA 


C 9 P 


C 7 DO 


ft C 
OD 


1 




STA 


C "3 1 
b-5l 


F968 


60 






RTS 




F969 


A4 


3F 




LDY 


$3F 


F96B 


99 


00 


00 


STA 


$0000, Y 


F96E 


A5 


50 




LDA 


$50 


F970 


FO 


03 




BEO 


$F975 


F972 


20 


F2 


F5 


JSR 


$F5F2 


F975 


20 


8F 


F9 


JSR 


$F98F 


F978 


A6 


49 




LDX 


$49 
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get stack pointer back 
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F97A 


9A 






TXS 




F97B 


4C 


BE 


F2 


JMP 


SF2BE 


F97E 


A9 


AO 




LDA 


#$A0 


F980 


85 


20 




STA 


$20 


F982 


AD 


00 


1C 


LDA 


$1C00 


F985 


09 


04 




ORA 


#$04 


F987 


8D 


00 


1C 


STA 


$1C00 


F98A 


A9 


3C 




LDA 


$3C 


F98C 


85 


48 




STA 


$48 


F98E 


60 






RTS 




F98F 


A6 


3E 




LDX 


$3E 


F991 


A5 


20 




LDA 


$20 


F993 


09 


10 




ORA 


#$ 10 


F995 


85 


20 




STA 


$20 


F997 


ft o 

A9 


FF 




LDA 


#$FF 


F999 


Q C 


A Q 




STA 


C A O 


F99B 


DU 






RTS 




F99C 


AD 


U / 


Ik. 


LDA 


c i 

P 1CU / 


F99F 


8D 


05 


1C 


STA 


$ 1C05 


F9A2 


AD 


UU 


li- 


LDA 


c i /Tin 


F9A5 


29 


10 




AND 


#$10 


F9A7 


C5 


IE 




CMP 


$1E 


F9A9 


85 


IE 




STA 


$1E 


F9AB 


F0 


04 




BEO 


$F9B1 


F9AD 


ft Q 

Ay 


n l 
Ui 




LDA 


#$01 


F9AF 


85 


1C 




STA 


$ 1C 


F9B1 


AD 


FE 


ft o 


LDA 


c n o pp 
p U Z t b 


F9B4 


F0 


15 




BEQ 


£ d f\ ra 

5F9CB 


F9B6 


C9 


02 




CMP 


#$02 


F9BB 


DO 


07 




BNE 


$F9C1 


F9BA 


A9 


00 




LDA 


#$00 


F9BC 


8 D 


FE 


02 


STA 


I?U2c E 


ry Br 


F0 


UA 




BEQ 




F9C1 


85 


4A 




STA 


$ 4A 


F9C3 


A9 


02 




LDA 


#$02 


F9C5 


8D 


FE 


02 


STA 


9UzrE 


F9C8 


4C 


2E 


FA 


JMP 


$FA2E 


F9CB 


A6 


3E 




LDX 


$3E 


F9CD 


30 


07 




BMI 


$F9D6 


F9CF 


A5 


20 




LDA 


$ 20 


F9D1 


A8 






TAY 




F9D2 


C9 


20 




CMP 


#$20 


F9D4 


DO 


03 




BNE 


$F9D9 


F9D6 


4C 


BE 


FA 


JMP 


$FABE 


F9D9 


C6 


48 




DEC 


$48 


F9DB 


DO 


ID 




BNE 


$F9FA 


F9DD 


98 






TYA 




F9DE 


10 


04 




BPL 


$F9E4 


F9E0 


29 


7F 




AND 


#$7F 


F9E2 


85 


20 




STA 


$20 



turn drive motor off 



write protect? 
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drive motor on 



pointer $62/$63 to $FA3B 



F9E4 


29 


10 




AND 


#$10 


F9E6 


FO 


12 




BEO 


$F9FA 


F9E8 


AD 


00 


1C 


LDA 


$1C00 


F9EB 


29 


FB 




AND 


#$FB 


F9ED 


8D 


00 


1C 


STA 


$1C00 


F9F0 


A9 


FF 




LDA 


#$FF 


F9F2 


85 


3E 




STA 


$3E 


F9F4 


A9 


00 




LDA 


#$00 


F9F6 


85 


20 




STA 


$20 


F9F8 


FO 


DC 




BEO 


$F9D6 


F9FA 


98 






TYA 




F9FB 


29 


40 




AND 


#$40 


F9FD 


DO 


03 




BNE 


$FA02 


F9FF 


4C 


BE 


FA 


JMP 


$FABE 


FA02 


6C 


62 


00 


JMP 




FA05 


A5 


4A 




LDA 


#$4A 


FA07 


10 


05 




BPL 


$FA0E 


FA09 


49 


FF 




EOF. 


#$FF 


FAOB 


18 






CLC 




FAOC 


69 


01 




ADC 


#$01 


FAOE 


C5 


64 




CMP 


$64 


FA10 


BO 


OA 




BCS 


$FA1C 


FA12 


A9 


3B 




LDA 


#$3B 


FA14 


85 


62 




STA 


$62 


FA16 


A9 


FA 




LDA 


#$FA 


FA18 


85 


63 




STA 


$63 


FA1A 


DO 


12 




BNE 


$FA2E 


FA1C 


E5 


5E 




SBC 


S5E 


FA1E 


E5 


5E 




SBC 


$5E 


FA20 


85 


61 




STA 


$61 


FA22 


A5 


5E 




LDA 


$5E 


FA24 


85 


60 




STA 


$60 


FA26 


A9 


7B 




LDA 


#$7B 


FA28 


85 


62 




STA 


$62 


FA2A 


A9 


FA 




LDA 


#$FA 


FA2C 


85 


63 




STA 


$63 


FA2E 


A5 


4A 




LDA 


$4A 


FA30 


10 


31 




BPL 


SFA63 


FA32 


E6 


4A 




INC 


$4A 


FA34 


AE 


00 


1C 


LDX 


$1C00 


FA37 


CA 






DEX 




FA38 


4C 


69 


FA 


JMP 


$FA69 


***************************** 


FA3B 


A5 


4A 




LDA 


$4A 


FA3D 


DO 


EF 




BNE 


$FA2E 


FA3F 


A9 


4E 




LDA 


#$4E 


FA41 


85 


62 




STA 


$62 


FA43 


A9 


FA 




LDA 


#$FA 


FA45 


85 


63 




STA 


$63 


FA47 


A9 


05 




LDA 


#$05 


FA49 


85 


60 




STA 


$60 


FA4B 


4C 


BE 


FA 


JMP 


$FABE 



pointer S62/S63 to $FA7B 

step counter for head transport 

increment 

step counter for head transport 
not yet zero? 

pointer $62/$63 to $FA4E 

counter to 5 
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****************************** 



FA4E 


C6 


60 


DEC 


$60 


decrement counter 


FA50 


DO 


6C 


BNE 


$FAPE 


not yet zero? 


FAS 2 


A5 


20 


LDA 


$20 




FA54 


29 


BF 


AND 


#$BF 


erase bit 6 


FA56 


85 


20 


STA 


$20 




FA58 


A9 


05 


LDA 


#$05 




FA5A 


85 


62 


STA 


$62 




FA5C 


A9 


FA 


LDA 


#$FA 


pointer $62/$63 to 


FA5E 


85 


63 


STA 


$63 




FA60 


4C 


BE FA 


JHP 


$FABE 





****************************** 



FA63 


C6 


4A 




DEC 


$4A 


FA65 


AE 


00 


1C 


LDX 


$1COO 


FA68 


E8 






INX 




FA69 


8A 






TXA 




FA6A 


29 


03 




AND 


#$03 


FA6C 


85 


4B 




STA 


$4B 


FA6E 


AD 


00 


1C 


LDA 


S1C00 


FA71 


29 


FC 




AND 


#$FC 


FA73 


05 


4B 




ORA 


$4B 


FA75 


8D 


00 


1C 


STA 


$1C00 


FA78 


AC 


BE 


FA 


JMP 


$FABE 


***************************; 


FA7B 


38 






SEC 




FA7C 


AD 


07 


1C 


LDA 


$1C07 


FA7F 


E5 


5F 




SBC 


$5F 


FA81 


8D 


05 


1C 


STA 


$1C05 


FA84 


C6 


60 




DEC 


$60 


FA86 


DO 


OC 




BNE 


$FA94 


FA88 


A5 


5E 




LDA 


$5E 


FA8A 


85 


60 




STA 


$60 


FA8C 


A9 


97 




STA 


#$97 


FA8E 


85 


62 




STA 


$62 


FA90 


A9 


FA 




LDA 


#$FA 


FA92 


85 


63 




STA 


$63 


FA94 


4C 


2E 


FA 


JMP 


$FA2E 


*************************** 


FA97 


C6 


61 




DEC 


$61 


FA99 


DO 


F9 




BNE 


$FA94 


FA9B 


A9 


AS 




LDA 


#$A5 


FA9D 


85 


62 




STA 


$62 


FA9F 


A9 


FA 




LDA 


#$FA 


FAA1 


85 


63 




STA 


$63 


FAA3 


DO 


EF 




BNE 


$FA9 4 


*************************** 


FAA5 


AD 


07 


1C 


LDA 


$1C07 


FAA8 


18 






CLC 




FAA9 


65 


5F 




ADC 


$5F 


FAAB 


8D 


05 


1C 


STA 


$1C05 



step counter for head transport 



stepper motor off 



decrement counter 
not yet zero? 



pointer $62/$63 to $FA97 



pointer $62/$63 to $FAA5 
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PAAE 


C6 


60 




DEC 


$60 


decrement counter 


FABO 


DO 


E2 




BNE 


$FA94 


not yet zero? 


FAB2 


A9 


4E 




LDA 


#$4E 


FAB4 


85 


62 




STA 


$62 




FAB6 


A9 


FA 




LDA 


#$FA 


pointer $62/$63 to $FA4E 


FAB8 


85 


63 




STA 


$63 


FABA 


A9 


05 




LDA 


#$05 




FABC 


85 


60 




STA 


$60 


counter to 5 


FABE 


AD 


OC 


1C 


LDA 


S1C0C 




FAC1 


29 


FD 




AND 


#$FD 


erase bit 1 


FAC3 


8D 


OC 


1C 


STA 


$1C0C 




FAC6 


60 






RTS 






****************************** 


formatting 


FAC7 


A5 


51 




LDA 


$51 


track number 


FAC9 


10 


2A 




BPL 


SFAF5 


fomatting already in progress 


EACB 


A6 


3D 




LDX 


$3D 


drive number 


FACD 


A9 


60 




LDA 


#$60 


flag for head transport 


FACF 


95 


20 




STA 


$20, X 


set 


FAD1 


A9 


01 




LDA 


#$01 




FAD3 


95 


22 




STA 


$22 ,X 


set destination track 


FAD5 


85 


51 




STA 


$51 


running track # for format 


FAD7 


A9 


A4 




LDA 


#$A4 


164 


FAD9 


85 


4A 




STA 


$4A 


step counter for head transport 


FADB 


AD 


00 


1C 


LDA 


$1C00 


FADE 


29 


FC 




AND 


#$FC 


stepper motor on 


FAEO 


8D 


00 


1C 


STA 


S1C00 


FAE3 


A9 


OA 




LDA 


#$0A 


10 


FAE5 


8D 


20 


06 


STA 


$0620 


error counter 


FAE8 


A9 


AO 




LDA 


#$40 


$621/$622 = 4000 


FAEA 


8D 


21 


06 


STA 


$0621 


initialize track capacity 


FAED 


A9 


OF 




LDA 


#$0F 


4000 < capacity < 2*4000 bytes 


FAEF 


8 D 


22 


06 


STA 


$0622 


FAF2 


4C 


9C 


F9 


JMP 


$F99C 


back in job loop 


FAF5 


AO 


00 




LDY 


#$00 




FAF7 


Dl 


32 




CMP 


($32) ,y 




FAF9 


FO 


05 




BEO 


$FB00 




FAFB 


91 


32 




STA 


($32) ,Y 




FAFD 


4C 


9C 


F9 


JMP 


SF99C 


to job loop 


FBOO 


AD 


00 


1C 


LDA 


$1C00 




FB03 


29 


10 




AND 


#$10 


write protect? 


FB05 


DO 


05 




BNE 


$FB0C 


no 


FB07 


A9 


08 




LDA 


#$08 




FB09 


4C 


D3 


FD 


JMP 


$FDP3 


26, 'write protect on' 


FBOC 


20 


A3 


FD 


JSR $ FDA3 


write $ FF to disk 10240 times 


FBOF 


20 


C3 


FD 


JSR 


$FDC3 


code ($621/$622) times to disk 


FB12 


A9 


55 




LDA 


#$55 


$55 


FB14 


8D 


01 


1C 


STA 


$1C01 


to write head 


FB17 


20 


C3 


FD 


JSR 


$FDC3 


and ($621/$622) times to disk 


FBI A 


20 


00 


FE 


JSR 


$FE00 


switch to read 


FB1D 


20 


56 


F5 


JSR 


$F556 


set timer, find $FF (SYNC) 


FB20 


A9 


40 




LDA 


#$40 
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FB22 


OD 


OB 


18 


ORA $180B 


timer 1 free running 


FB25 


8D 


OB 


18 


STA $180B 




FB28 


A9 


62 




LDA #$62 


98 cycles t about 0.1 ms 


FB2A 


8D 


06 


18 


STA $1806 




FB2D 


A9 


00 




LDA #$00 




FB2F 


8D 


07 


18 


STA $1807 




FB32 


8D 


05 


18 


STA $1805 


start timer 


FB35 


AO 


00 




LDY #$00 


counter to zero 


FB37 


A2 


00 




LDX #$00 




FB39 


2C 


00 


1C 


BIT $1C00 


SYNC* tounar 


FB3C 


30 


FB 




BMI SFB39 


no, wa i t 


FB3E 


2C 


00 


1C 


BIT $1C00 


bYNt, rounai 


FB41 


10 


FB 




BPL SFB3E 


wait tor SYNC 


FB43 


AD 


04 


18 


LDA $1804 


reset interrupt xiay tiioet 


FB46 


2C 


00 


1C 


BIT $1C00 


SYNC round f 


FB49 


10 


11 




BPL $FB5C 


not SYNC l§DD)r 


FB4B 


AD 


OD 


18 


LDA $180D 


interrupt flag register 


FB4E 


OA 






ASL A 


shift timer flag 


FB4F 


10 


F5 




BPL $FB46 


t inter not run uown y*s t * 


FB51 


E8 






I NX 


inc reiueni. louiilci 


FB52 


DO 


EF 




BNE $FB43 




FB54 


C8 






INY 


increment hi— by te of counter 


FB55 


DO 


EC 




BNE $FB43 




FB57 


A9 


02 




LDA #?02 


over e low , tnen en *jl 


FB59 


4C 


D3 


FD 


JMP $FDD3 


20 f 1 read error 


FB5C 


86 


71 




STX $ 7 1 




FB5E 


84 


72 




STY $ 7 2 




FB60 


A2 


00 




LDX # S 


counter to zero agai n 


FB62 


AO 


00 




LDY #$00 


FB64 


AD 


04 


18 


LDA $1804 


v «-> r-> 4- +- i ma v 1 "i r»4~cay"V">ir^f" ■flan 

reset timci ± xnutsttupi- nay 


FB67 


2C 


00 


1C 


BIT $1C00 


SYNC found? 


FB6A 


30 


11 




BMI $FB7D 


yes 


FB6C 


AD 


OD 


18 


LDA $180D 


interrupt-f lag register 


FB6F 


OA 






ASL A 


timer flag to bit 7 


FB70 


10 


F5 




BPL $FB67 


no r wait until timer run down 


FB72 


E8 






I NX 




FB73 


DO 


EF 




BNE $FB64 


increment counter 


FB75 


C8 






INY 




FB76 


DO 


EC 




BNE $FB64 




FB78 


A9 


02 




LDA #$0 2 


overflow, then error 


FB7A 


4C 


D3 


FD 


JMP $FDD3 


20, 'read error 1 


FB7D . 


38 






SEC 




FB7E 


8A 






TXA 




FB7F 


E5 


71 




SBC $71 


difference between counter 


FB81 


AA 






TAX 




FB82 


85 


70 




STA $70 




FB84 


98 






TYA 


and value for $FF-storage 


FB85 


E5 


72 




SBC $72 




FB87 


A8 






TAY 


bring to S70/$71 


FB88 


85 


71 




STA $71 




FB8A 


10 


OB 




BPL SFB97 


difference positive? 


FB8C 


49 


FF 




EOR #$FF 




FB8E 


A8 






TAY 
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FB8F 


8A 






TXA 




FB90 


49 


FF 




EOR 


#$FF 


FB92 


AA 






TAX 




FB93 


E8 






INX 




FB94 


DO 


01 




BNE 


$FB97 


FB96 


C8 






INY 




FB97 


98 






TYA 




FB98 


DO 


04 




BNE 


$FB9E 


FB9A 


EO 


04 




CPX 


#$04 


FB9C 


90 


18 




BCC 


$FBB6 


FB9E 


06 


70 




ASL 


$70 


FBAO 


26 


71 




ROL 


$71 


FBA2 


18 






CLC 




FBA3 


A5 


70 




LDA 


$70 


FBA5 


6D 


21 


06 


ADC 


$0621 


F8A8 


8D 


21 


06 


STA 


$0621 


FBAB 


A5 


71 




LDA 


$71 


FBAD 


6D 


22 


06 


ADC 


$0622 


FBBO 


8D 


22 


06 


STA 


$0622 


FBB3 


4C 


OC 


FB 


JMP 


$FB0C 


FBB6 


A2 


00 




LDX 


#$00 


FBB8 


AO 


00 




LDY 


#$00 


FBBA 


B8 






CLV 




FBBB 


AD 


00 


1C 


LDA 


$1C00 


FBBE 


10 


OE 




BPL 


$FBCE 


FBCO 


50 


59 




BVC 


$FBBB 


FBC2 


B8 






CLV 




FBC3 


E8 






INX 




FBC4 


DO 


F5 




BNE 


$FBBB 


FBC6 


C8 






INY 




FBC7 


DO 


F2 




BNE 


$FBBB 


FBC9 


A9 


03 




LDA 


#$03 


FBCB 


4C 


D3 


FD 


JMP 


$FDD3 


FBCE 


8A 






TXA 




FBCF 


OA 






ASL 


A 


FBDO 


8D 


25 


06 


STA 


$0625 


FBD3 


98 






TYA 




FBD4 


2A 






ROL 


A 


FBD5 


8D 


24 


06 


STA 


$0624 


FBD8 


A9 


BF 




LDA 


#SBF 


FBDA 


2D 


OB 


18 


AND 


$180B 


FBDD 


8D 


OB 


18 


STA 


$180B 


FBEO 


A9 


66 




LDA 


#$66 


FBE2 


8D 


26 


06 


STA 


$0626 


FBE5 


A6 


43 




LDX 


$43 


FBE7 


AO 


00 




LDY 


#$00 


FBE9 


98 






TYA 




FBEA 


18 






CLC 




FBEB 


6D 


26 


06 


ADC 


$0626 


FBEE 


90 


01 




BCC 


$FBF1 


FBFO 


C8 






INY 




FBF1 


C8 






INY 




FBF2 


CA 






DEX 





calculate abs. val of difference 

difference less than 4 * 0.1 ins 
yes 

double difference 
add to 4000 

repeat until diff < 4 * 0.1 ms 

counter to zero 

SYNC? 
no 

byte ready? 

increment counter 

overflow, then error 
21, read error 

double counter 

and to $624/$625 as track cap. 
102 

number of sectors in this track 
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PBF3 


DO 


PC 

r 3 




nun CPDPH 




FBF5 


49 


FF 




EOR f ?Fr 




FBF7 


38 






SEC 




FBF8 


69 


00 




ATM* 1 JtCflfl 

ADL IfPUU 




FBFA 


lb 










FBFB 


6D 


25 


06 


inn enoc 
ADC $ U b 2. 5 




FBFE 


BO 


03 




BL© >rt-UJ 




FCOO 


CE 


*i A 

24 


Ub 


Dbl* 5>Ubz4 




FC03 


AA 






TAX 




FC04 


98 






TYA 




FC05 


49 


FF 




EOP #$FF 




FC07 


38 






SEC 




FC08 


69 


00 




»np a con 




FCOA 


18 






CLC 


result in a/ a 


FCOB 


6D 


24 


06 


ADC !?UbZ4 


FCOE 


10 


05 








FC10 


A9 


n a 
U4 




JjL) A ff •? U 4 




FC12 


4C 




FD 


Oelr ^cUL/j 


£. £. f L. CUVJ LWL 


FC15 


A O 

Ao 






TA v 




FC16 


8A 






TXA 




FC17 


A2 


00 




LDX #?UU 




FC19 


38 






SEC 


fnfal rtiwirl^ri hv number 


FC1A 


E5 


A "3 




ctaP C yl T 


Ul bcttuis \ yiJ ; 


FC1C 


BO 


03 




npO CdPO 1 

BL. o *? r L. Z 1 




FC1E 


88 






DEY 




FC1F 


30 


03 




DMT C* CO O ^ 

BMI &rCZ4 




FC21 


E8 






I NX 




FC22 


DO 


F5 








FC24 


8E 


zb 


Ub 






FC27 


E0 


04 




CPX #504 


with minimum value 


FC29 


BO 


05 




nop Odai A 


OK 


FC2B 


A9 


05 




L1JA #9wj 




FC2D 


4C 


D3 


FD 


Tun Cor>r\l 

JnP orDDJ 


O O t >- a a H ai"ka>* ^ 

r xreau err cor 


r Lju 


1 Q 








v-pmai r>Hf>r of rf 1 V 1 9 i fin 

L Cilia X 11UCJL \J L- U 1 v lull 




D O 








r»1iiQ nntnhpr <5^fhor^ 


r L J J 


Q r» 




ub 


Mn 9 U £. 1 


save 


FC36 


A9 


00 




LDA # § U U 




FC38 


o 1J 




nc 
Ub 


Din 9 UO ZO 




FC3B 


AO 


AA 

uu 




LUi ff^UU 


counter lo 


FC3D 


A6 


3D 




t t^v con 


dr i vs numbs r 


FC3F 


A5 


39 




LDA $ 3 9 


constant Of iuarKei tor neauci 


FC41 


99 


00 


03 


STA 5 3UU f Y 


in buffer 


FC44 


C8 






I NY 




FC45 


C8 






INY 




FC46 


AD 


28 


06 


LDA !?UbZo 


sector nurooe it 


ilQ 

r 


QQ 


uu 




Din PUJUU f I 


J. 1 1 LJ Li i. i. c X. 


FC4C 


C8 






INY 




FC4D 


A5 


51 




LDA $51 


track number 


FC4F 


99 


00 


03 


STA $0300, Y 


in buffer 


FC52 


C8 






INY 




FC53 


B5 


13 




LDA $13, X 


ID 2 


FC55 


99 


00 


03 


STA $0300, Y 


in buffer 


FC58 


C8 






INY 




FC59 


B5 


12 




LDA $12, X 


ID 1 
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FC5B 

PC5E 

FC5F 

FC61 

FC64 

FC65 

FC68 

FC69 

FC6B 

FC6E 

FC71 

FC74 

FC77 

FC7A 

FC7D 

FC80 

FC82 

FC84 

FC85 

FC86 

FC87 

FC88 

FC8B 

FC8C 

FC8E 

FC90 

FC92 

FC95 

FC96 

FC97 

FC98 

FC9B 

FC9E 

FCAO 

FCA2 

FCA5 

FCA7 

FCAA 

FCAC 

FCAE 

FCB1 

FCB3 

FCB6 

FCB8 

FCBA 

FCBB 

FCBC 

FCBE 

FCCO 

FCC 2 

FCC4 

FCC5 

FCC8 

FCCB 

FCCC 



99 00 03 
C8 

A9 OF 
99 00 03 
C8 

99 00 03 
C8 

A9 00 
59 FA 02 
59 FB 02 
59 FC 02 
59 FD 02 
99 F9 02 
EE 28 06 
AD 28 06 
C5 43 
90 BB 
98 
48 
E8 
8A 

9D 00 05 
E8 

DO FA 

A9 03 

85 31 

20 30 FE 

68 

A8 

88 

20 E5 FD 
20 F5 FD 
A9 05 
85 31 
20 E9 F5 
85 3A 
20 8F F7 
A9 00 
85 32 
20 OE FE 
A9 FF 
8D 01 1C 
A2 05 
50 FE 
B8 
CA 

DO FA 
A2 OA 
A4 32 
50 FE 
B8 

B9 00 03 
8D 01 1C 
C8 
CA 



STA 

INY 

LDA 

STA 

INY 

STA 

INY 

LDA 

EOR 

EOR 

EOR 

EOR 

STA 

INC 

LDA 

CMP 

BCC 

TYA 

PHA 

INX 

TXA 

STA 

INX 

BNE 

LDA 

STA 

JSR 

PLA 

TAY 

DEY 

JSR 

JSR 

LDA 

STA 

JSR 

STA 

JSR 

LDA 

STA 

JSR 

LDA 

STA 

LDX 

BVC 

CLV 

DEX 

BNE 

LDX 

LDY 

BVC 

CLV 

LDA 

STA 

INY 

DEX 



$0300, Y in buffer 



#$0F 
$0300, Y 



15 

in buffer 



$0300, Y 15 in buffer 



#$00 

$02FA,Y 

$02FB, Y 

$02FC,Y 

$02FD,Y 

$02F9,Y 

$0628 

$0628 

$43 

$FC3F 



$0500, X 

$FC88 
#$03 
$31 
$FE30 



$FDE5 

$FDF5 

#$05 

$31 

$F5E9 

$3A 

SF78F 

#$00 

$32 

$FE0E 

#$FF 

S1C01 

#$05 

$FCB8 



$FCB8 
#$0A 
$32 
$FCC2 

$0300, Y 
$1C01 



generate checksum 



increment counter 
counter 

compare with no. of sectors 
smaller, then continue 



buffer pointer to S300 



copy buffer data 
copy data in buffer 

buffer pointer to $500 
calculate parity for data buffer 
and save 



to write head 
write $ FF 5 times 
byte ready 



10 times 
buffer pointer 
byte ready? 

data from buffer 
write 

10 data written? 
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FCCD 


DO 


F3 




BNE 


SFCC2 




FCCF 


A2 


09 




LDX 


#$09 


9 times 


FCD1 


50 


FE 




BVC 


$FCD1 


byte ready? 


FCD3 


B8 






CLV 






FCD4 


A9 


55 




LDA 


#$55 


$55 


FCD6 


8D 


01 


1C 


STA 


$1C01 


write 


FCD9 


CA 






DEX 






FCDA 


DO 


F5 




BNE 


$FCD1 


9 times? 


FCDC 


A9 


FF 




LDA 


#$FF 


$FF 


FCDE 


A2 


05 




LDX 


#$05 


5 times 


FCEO 


50 


FE 




BVC 


$FCE0 


byte ready? 


FCE2 


B8 






CLV 






FCE3 


8D 


01 


1C 


STA 


$1C01 


to write head 


FCE6 


CA 






DEX 






FCE7 


DO 


F7 




BNE 


$FCE0 




FCE9 


A2 


BB 




LDX 


#$BB 




FCEB 


50 


FE 




BVC 


$FCEB 




FCED 


B8 






CLV 






FCEE 


BD 


00 


01 


LDA 


$0100, X 


area $1BB to $1FF 


FCF1 


8D 


01 


1C 


STA 


S1C01 


save 


FCF4 


E8 






INX 






FCF5 


DO 


F4 




BNE 


$FCEB 




FCF7 


AO 


00 




LDY 


#$00 




FCF9 


50 


FE 




BVC 


$FCF9 


byte ready? 


FCFB 


B8 






CLV 






FCFC 


Bl 


30 




LDA 


($30) ,Y 


256 bytes of data 


FCFE 


8D 


01 


1C 


STA 


$1C01 


write byte to disk 


FD01 


C8 






INY 






FD02 


DO 


F5 




BNE 


$FCF9 




FD04 


A9 


55 




LDA 


#$55 


$55 


FD06 


AE 


26 


06 


LDX 


$0626 


($626) times 


FD09 


50 


FE 




BVC 


$FD09 




FDOB 


B8 






CLV 






FDOC 


8D 


01 


1C 


STA 


$1C01 


write 


FDOF 


CA 






DEX 






FD10 


DO 


F7 




BNE 


$FD09 




FD12 


A5 


32 




LDA 


$32 




FD14 


18 






CLC 






FD15 


69 


OA 




ADC 


#$0A 


plus 10 


FD17 


85 


32 




STA 


$32 




FD19 


CE 


28 


06 


DEC 


$0628 


decrement sector number 


FD1C 


DO 


93 




BNE 


SFCBl 




FD1E 


50 


FE 




BVC 


SFD1E 


byte ready? 


FD20 


B8 






CLV 






FD21 


50 


FE 




BVC 


$FD21 


byte ready? 


FD23 


B8 






CLV 




FD24 


20 


00 


FE 


JSR 


$FE00 


switch to reading 


FD27 


A9 


C8 




LDA 


#$C8 


200 


FD29 


8D 


23 


06 


STA 


$0623 




FD2C 


A9 


00 




LDA 


#$00 




FD2E 


85 


30 




STA 


$30 




FD30 


A9 


03 




LDA 


#$03 


buffer pointer to $200 


FD32 


85 


31 




STA 


$31 


FD34 


A5 


43 




LDA 


$43 


number of sectors per track 


FD36 


8D 


28 


06 


STA 


$0628 
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FD39 


20 


56 


F5 


JSR 


SF556 


FD3C 


A2 


OA 




LDX 


#$0A 


FD3E 


AO 


00 




LDY 


#$00 


FD40 


50 


FE 




BVC 


$FD40 


FD42 


B8 






CLV 






AD 


Ui 


1C 


LDA 


$ 1C01 


r u**o 


Dl 






CMP 


(530) ,Y 


FD48 


DO 


0E 




BNE 


$FD58 


FD4A 


C8 






I NY 




FD4B 


LA 






DEX 




FD4C 


nn 

DU 


po 
r z 




BNE 


SFD40 


FD4E 


± o 






PT 




FD4F 


A5 


30 




LDA 


$30 


FD51 


69 


OA 




ADC 


#$0A 


pni 

c LID J 


R C 
O O 


■an 




STA 


$30 


pncc 
r UD D 


4L 


O £. 


FD 


JMP 


$FD6 2 


pnt^ r 
r V j o 




00 

z J 


uo 


DEC 


$ 06 23 




DU 


r*p 
Lr 




BNE 


$FD2C 


r D3D 


Ay 


UD 




LDA 


#$06 


FD5F 


AP 




pn 
r D 


JMP 


$FDD3 


FD62 


20 


->o 


pc 


J OK 




r udj 


an 

AU 


nn 




LDY 


#$BB 


r do / 


OU 


FE 




BVC 


$ FD67 




DO 






CLV 




pnc r 


AD 


m 
u 1 


1L 


LDA 


$ 1C0 1 


r dod 


no 
uy 


UU 


n 1 
UI 


CMP 


SU100 t Y 


pn*7 n 
f u/u 


DU 


PC 

ho 




BNE 


$FD58 


FD72 


to 






I NY 




pr»7 
r u / j 


nn 

DU 


p*> 




BNE 


$ FD67 


FD75 


A2 


PP 




LDX 


ff 9 r (- 


FD77 


^n 


pp 




BVC 


$ FD77 


FD79 


Rft 
DO 






L1.V 




ru/H 


AD 


m 




LDA 


$ 1C01 


pm n 


no 
uy 


nn 
UU 


UD 


CMP 


A C A A \r 

$0500 , Y 


FD8 


nn 

DU 


Do 




BNE 


$FD58 


f DO £ 


PR 






INY 




FD83 


CA 






DEX 




FD84 


DO 


Fl 




BNE 


$FD77 


r do 


PP 


OR 


nc 
Uo 


DEC 


'$0628 


r uo y 


nn 

DU 


AE 




BNE 


$FD39 


pno n 
r Do la 




D 1 




INC 


$51 


c Do D 


A5 


51 




LDA 


$51 


pno p 
v do r 


Ly 






CMP 


#$24 


FD91 


Rn 

DU 


n^ 

U J 






$FD96 


FD93 


4C 


9C 


F9 


JMP 


$F99C 


FD96 


A9 


FF 




LDA 


#$FF 


FD98 


85 


51 




STA 


$51 


FD9A 


A9 


00 




LDA 


#$00 


FD9C 


85 


50 




STA 


$50 


FD9E 


A9 


01 




LDA 


#$01 


FDAO 


4C 


69 


F9 


JMP 


SF969 



wait for SYNC 
10 data 

byte ready? 

read byte 

compare with data in buffer 
not equal, error 



increment pointer by 10 



decrement counter for attempts 

not yet zero? 

else error 

24, 'read error' 

wait for SYNC 

byte ready? 

read byte 

compare with buffer contents 
not equal, error 

next byte 

byte ready? 

read byte 

compare with buffer contents 
not equal, then error 

next byte 

decrement sector counter 
not yet zero? 
increment track number 

compare with 36, highest trk# +1 
greater, then formatting done 
continue 



track number to $FF 



ok 
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****************************** 


write ?rf J.uz4u times 


FDA3 


AD OC 1C 


LDA $1C0C 




FDA6 


29 IF 


AND #$1F 


swibcn r tu writ iny 


FDA8 


09 CO 


ORA #$C0 




FDAA 


8D OC 1C 


STA S1C0C 




FDAD 


A9 FF 


LDA #5FF 




FDAF 


8D 03 1C 


STA $1C03 


port i\\ reao/ wtite neau / to oi 


FDB2 


8D 01 1C 


STA $1C01 


write 9 r r to u ask. 


FDB5 


A2 28 


LDX #$28 


40 


FDB7 


AO 00 


LDY #$00 




FDB9 


50 FE 


BVC $FDB9 


Dytc [caUy 


FDBB 


B8 


CLV 




FDBC 


88 


DEY 




FDBD 


DO FA 


BNE SFD89 




FDBF 


CA 


DEX 




FDCO 


DO F7 


BNE $FD89 




FDC2 


60 


RTS 




****************************** 


r<=»arl /wri *-p fSfi91/Sfi?9^ t-i m**^ 

ICClVJ/ WL 1 LC \ V U «■ ± / U £• £• / \- i. IHC !S 


FDC3 


AE 21 06 


LDX $0621 




FDC6 


AC 22 06 


LDY $0622 




FDC9 


50 FE 


BVC $FDC9 


byte ready? 


FPCB 


B8 


CLV 




FDCC 


CA 


DEX 




FDCD 


DO FA 


BNE $FDC9 




FDCF 


88 


DEY 




FDDO 


10 F7 


BPL $FDC9 




FDD2 


60 


RTS 




****************************** 


s *- i- famn t* rriiinl'^r" for* f*nr"iri3 1" t* i 


FDD3 


CE 20 06 


DEC $0620 


decrement number of attempts 


FDD6 


FO 03 


BEO $FDDB 


zero, then error 


FDD8 


4C 9C F9 


JMP $F99C 


continue 


FDDB 


AO FF 


LDY #$FF 




FDDD 


84 51 


STY $51 


■Flan 4-/~> v- i-if f nrmst" f i nn 


FDDF 


C8 


I NY 




FDEO 


84 50 


STY $50 




FDE2 


4C 69 F9 


JMP $F969 


CL lUL LCLlIllIldt 


****************************** 




FDE5 


B9 00 03 


LDA $0300, Y 




FDE8 


99 45 03 


STA $0345, Y 




FDEB 


88 


DEY 


copy buffer contents 


FDEC 


DO F7 


BNE $FDE5 




FDEE 


AD 00 03 


LDA $0300 




FDF1 


8D 45 03 


STA $0345 




FDF4 


60 


RTS 




****************************** 




FDF5 


AO 44 


LDY #$44 




FDF7 


B9 BB 01 


LDA $01BB,Y 


$1BB to $1FF 


FDFA 


91 30 


STA ($30) ,Y 


write in buffer $30/$31 


FDFC 


88 


DEY 




FDFD 


10 F8 


BPL $FDF7 
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FDFF 60 RTS 
****************************** 



FEOO 


AD 


OC 


1C 


LDA 


$1C0C 


FE03 


09 


EO 




ORA 


#$E0 


FE05 


8D 


OC 


1C 


STA 


$1C0C 


FE08 


A9 


00 




LDA 


#$00 


FEOA 


8D 


03 


1C 


STA 


$1C03 


FEOD 


60 






RTS 




***************************: 


FEOE 


AD 


OC 


1C 


LDA 


$1C0C 


FE11 


29 


IF 




AND 


#$1F 


FE13 


09 


CO 




ORA 


#$C0 


FE15 


8D 


OC 


1C 


STA 


S1C0C 


FE18 


A9 


FF 




LDA 


#$FF 


FE1A 


8D 


03 


1C 


STA 


$1C03 


FE1D 


A9 


55 




LDA 


#$55 


FE1F 


8D 


01 


1C 


STA 


$1C01 


FE22 


A2 


28 




LDX 


#$28 


FE24 


AO 


00 




LDY 


#$00 


FE26 


50 


FE 




BVC 


$FE26 


FE28 


B8 






CLV 




FE29 


88 






DEY 




FE2A 


DO 


FA 




BNE 


$FE26 


FE2C 


CA 






DEX 




FE2D 


DO 


F7 




BNE 


$FE26 


FE2F 


60 






RTS 





switch to reading 
switch PCR to reading 

port A to input 

write $55 10240 times 

switch PCR to writing 

port A to output (write head) 
%01010101 

to port A (write head) 

byte ready for write electronics 

10240 times 



****************************** 



FE30 


A9 


00 


LDA 


#$00 


FE32 


85 


30 


STA 


$30 


FE34 


85 


2E 


STA 


$2E 


FE36 


85 


36 


STA 


$36 


FE38 


A9 


BB 


LDA 


#$BB 


FE3A 


85 


34 


STA 


$34 


FE3C 


A5 


31 


LDA 


$31 


FE3E 


85 


2F 


STA 


$2F 


FE40 


A9 


01 


LDA 


#$01 


FE42 


85 


31 


STA 


$31 


FE44 


A4 


36 


LDY 


$36 


FE46 


Bl 


2E 


LDA 


($2E) ,Y 


FE48 


85 


52 


STA 


$52 


FE4A 


C8 




INY 




FE4B 


Bl 


2E 


LDA 


($2E) ,Y 


FE4D 


85 


53 


STA 


$53 


FE4F 


C8 




INY 




FE50 


Bl 


2E 


LDA 


($2E) ,Y 


FE52 


85 


54 


STA 


$54 


FE54 


C8 




INY 




FE55 


Bl 


2E 


LDA 


($2E) ,Y 


FE57 


85 


55 


STA 


$55 


FE59 


C8 




INY 




FE5A 


F0 


08 


BEO 


$FE64 


FE5C 


84 


36 


STY 


$36 
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FE5E 


02 


DO 


F6 


JSR 


$F6D0 


FE61 


4C 


44 


FE 






FE64 


4C 


DO 


F6 


JMP 


3F6D0 


***************************; 


FE67 


48 






PHA 




FE68 


8A 






TXA 




FE69 


48 






PHA 




FE6A 


98 






TYA 




FE6B 


48 






PHA 




FE6C 


AD 


0D 


18 


LDA 


S180D 


FE6F 


29 


02 




AND 


#$02 


FE71 


F0 


03 




BEO 


$FE76 


FE73 


20 


53 


E8 


JSR 


$E853 


FE76 


AD 


0D 


1C 


LDA 


$1C0D 


FE79 


OA 






ASL 


A 


FE7A 


10 


03 




BPL 


$FE7F 


FE7C 


20 


BO 


F2 


JSR 


SF2B0 


FE7F 


68 






PLA 




FE80 


A8 






TAY 




FE81 


68 






PLA 




FE82 


AA 






TAX 




FE83 


68 






PLA 




FE84 


40 






RTI 





****************************** 

FE85 12 
FE86 04 
FE87 04 
FE88 90 

****************************** 

FE89 56 49 44 4D 42 55 
FE8F 50 26 43 52 53 4E 

****************************** 

FE95 84 05 CI F8 IB 5C 
FE9F 07 A3 FO 88 23 OD 

****************************** 

FEA1 ED DO C8 CA CC CB 
FEA7 E2 E7 C8 CA C8 EE 

****************************** 

FEAD 51 DD 1C 9E 1C 

****************************** 

FEB2 52 57 41 4D 

****************************** 
FEB6 44 53 50 55 4C 

****************************** 
FEBB 44 53 50 55 52 1st 



interrupt routine 



save registers 



interrupt from serial bus 
no 

serve serial bus 
interrupt from timer 1? 

no 

IRQ routine for disk controller 



get register back 



constants for disk format 

18, track for BAM and directory 

start of BAM at position 4 

4 bytes in BAM for each track 

$90 = 144, end of BAM, disk name 

table of command words 

*V, 'I'^'D', 'M', 'B', 'U' 

'P', '&', 'C, ' R' , 'S', ' N' 

lo-bytes of command addresses 



hi-bytes of command addresses 



bytes for syntax check 

file control methods 
•R', 'W, "A', 'M' 

file types 

' D' , 'S', 'P', 'U', ' L' 

names of file types 
letters 'D', 'S', 'P\ 'U', ' R' 
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FECO 45 45 52 53 45 2nd 
FEC5 4C 51 47 52 4C 3rd 

****************************** 
FECA 08 00 00 

****************************** 
FECD 3F 7F BF FF 
****************************** 
FED1 11 12 13 15 

****************************** 

FED5 4A 

FED6 04 

FED7 24 

FED8 IF 19 12 



letters 'E', *E' r 'R', • S', 1 E' 
letters ' L" , '0', 'G', *R', 1 L' 



masks for bit command 

number of sectors per track 
17, 18, 19, 21 

contants for disk format 

'A' marker for 1541 format 

4 track numbers 

36, highest track number + 1 

31, 25, 18 tracks with change of 

number of, sectors 



****************************** 
FEDB 01 FF FF 01 00 
****************************** 
FEE0 03 04 05 06 07 
****************************** 
FEE5 07 0E 



control bytes for head position 

addresses of buffers 
high bytes 



****************************** f or command 



FEE7 


6C 65 00 


JMP ($0065) 




****************************** 


for diagnostic routine 


FEEA 


8D 00 1C 


STA $1C00 


turn LED on 


FEED 


8D 02 1C 


STA $1C02 


port to output 


FEF0 


4C 7D EA 


JMP $EA7D 


back to diagnostic routine 


****************************** 


delay loop for serial bus 


FEF3 


8A 


TXA 




FEF4 


A2 05 


LDX #505 




FEF6 


CA 


DEX 


about 40 microseconds 


FEF7 


DO FD 


BNE $FEF6 




FEF9 


AA 


TAX 




FEFA 


60 


RTS 




****************************** 


data output to serial bus 


FEFB 


20 AE E9 


JSR $E9AE 


CLOCK OUT hi 


FEFE 


4C 9C E9 


JMP $E99C 


DATA OUT lo 


****************************** 


UI vector 


FF01 


AD 02 02 


LDA $0202 




FF04 


C9 2D 


CMP #$2D 


• _ < 


FF06 


F0 05 


BEO $FF0D 




FF08 


38 


SEC 




FF09 


E9 2B 


SBC #$2B 




FF0B 


DO DA 


BNE $FEE7 


indirect jump over ($65) 
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FFOD 
FFOF 



85 23 
60 



STA $23 
RTS 



****************************** 

FF10 AA ... 
FFE1 ... AA 

****************************** 
FFE2 52 53 52 AA 
FFE6 C6 C8 8F F9 

****************************** user vectors 



FFEA 
FFEC 
FFEE 
FFFO 
FFF2 
FFF4 
FFF6 
FFF8 
FFFA 



5F CD 
97 CD 

00 05 
03 05 
06 05 
09 05 
0C 05 
OF 05 

01 FF 



UA, Ul, 
UB, 02, 
OC, U3, 
UD, U4, 
UE, U5, 
UF, U6, 
UG, 07, 
UH, U8, 
UI, U9, 
(NMI vector 



$CD5F 
$CD97 
$0500 
$0503 
$0506 
$0509 
$050C 
$050F 
$FF01 
not used) 



****************************** 



FFFC OA EA 
FFFE 67 FE 



hardware vectors 

$EAA0 RESET and OJ (O:) vector 
$FE67 IRO vector 
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Chapter 4: Programs and Tips for the 1541 Disk Drive 



4.1 Utility Programs 



4.1.1 Displaying all File Parameters 

The directory contains several important pieces of 
information about each file. Some information is not kept in 
the directory, such as the starting address of a program. 

These and other file parameters can be easily found and 
displayed by the following program. The number and kind of 
file parameters are naturally dependent on the file type. A 
relative file, for instance, has no starting address. The 
following table presents the parameters displayed by this 
program. 



PARAMETER : FILE TYPE 





DEL 


SEO 


PRG 


USR : REL : 


: File closed? 


X 


X 


X 


X 


X : 


: File protected? 


X 


X 


X 


X 


X : 


: Allocated blocks 


X 


X 


X 


X 


X : 


: Side-sector blocks 










X : 


: Data blocks 










X : 


: Records 










X : 


: Start address 






X 






: Free blocks, disk 
: Allocated bl. disk 


X : X 
X : X 


X : X 
X : X 


X : 
X : 



This program is documented in detail so that the serious 
programmer can get a good overview of the file parameters. 
In addition, the variables used by the program are 
explained. 

Variables used in the program: 
Numerical Variables 



T - Track of the actual block of the file entry in the 
directory 

S - Sector of the actual block of the file entry in the 
directory 

FL - Flag, set if the file name read from the diskette does 

not agree with the searched-for file 

TY - File type of the given file (byte of the entry) 
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FT - nybble of the file type (bits 0-3), contains the 

actual file type 
LB - Low byte of the starting address 
HB - High byte of the starting address 
BL - Number of allocated blocks in the file 
RL - Record length of a relative file 

DT - Track of the first data block of a program file, which 

contains the starting address 
DS - Sector of the first data block of a program file 
SA - Starting address of a program file 
BF - Number of free blocks on a disk 
BA - Number of allocated blocks on a disk 
BS - Number of side-sector blocks in a relative file 
RC - Number of records in a relative file 



String Variables 



F$ - Name of the file to search for 

FF$- Contains the actual file name from the directory 
FT$- File type 

CL$- Indicates whether the file is closed or not 

(contains "YES" or "NO") 
PR$- Indicates whether the file is protected or not 

(contains "YES" or "NO") 
RES- contains CHR$(18), REVERSE ON 
RA$— contains CHR$(146), REVERSE OFF 



Program Documentation: 

110 Set the color code of the screen 

120 - 200 Program heading 

210 - 230 Asks if the names should be listed out. 

Sets flag FL to 1 and executes the routine at 
280-490. 

250 - 270 Input the filename. Asks for new input if the 
filename if greater than 16 characters. 

280 - 490 Reads the file name from the directory and either 
displays it (FL=1) or compares it to the desired 
filename. 

500 - 530 Reads byte (file type) of the file entry of the 

desired file and stores it in TY. Also, the right 

half-byte is stored in FT. 
540 - 590 Checks the file type and saves the text in FT$, 

and checks for invalid file type. 
600 - 610 Checks bit 7 of the file type byte (file closed?) 

and saves the result in CL$ . 
620 - 630 Checks bit 6 of the file type byte (file 

protected?) and saves the result in PR$ . 
640 - 690 Reads the number of allocated blocks in the file 

from bytes 28 and 29 of the file entry and saves 

it in BL. 
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700 •- 730 If it is relative file, the record length is read 

from byte 21 and saved in RL 
740 - 880 If it is a program file, the starting address of 

the file is taken from the first data block and 

stored in SA. 

890 - 980 Free blocks on the disk are calculated by reading 
the first byte of the track-marked BAM section 
and added to BF. The allocated blocks are calcu- 
lated by BA = 664 - BF 

990 -1020 Here the number of side-sector blocks (BS) of a 
relative file is calculated with the help of the 
record length (RL) and the number of allocated 
blocks in the file (RC). 

1040-1230 Here the data can be sent to the screen or the 
printer as one chooses. The file parameters are 
shown in REVERSE. 

1240-1280 The parameters of another file can be output. 

The program is written for a CBM 64. In spite of this, it 
can be run without major changes on a VIC 20. Only line 110, 
where the color of the screen is set, need be changed for 
the VIC 20. 



BASIC Listing of the Program: 



100 CLR 

110 POKE 53280, 2:POKE53281, 2 :PRINTCHR$ < 158 ) ;CHR$(147) ; 
120 PRINT TAB( 6 ) ; "===========================" 

130 PRINT TAB( 6) DISPLAY ALL FILE PARAMETERS" 
140 PRINT TAB( 6) ;"===========================*' 

150 PRINT:PRINT 

160 PRINT"WITH THIS PROGRAM, ALL PARAMETERS OF A" 
170 PRINT"FILE CAN BE OUTPUT TO THE SCREEN OR TO" 
180 PRINT"A PRINTER AT YOUR OPTION." 
200 PRINT: PRINT 

210 PRINT"LIST FILENAMES ( Y/N) ? " 
220 GETX$:IFX$O"Y"ANDX$O"N"THEN220 
230 IF X$="Y"THENFL=1:GOSUB280 
240 FL=0 

250 INPUT" NAME OF THE FILE: " ; F$ 
260 IFLEN(F$X=16THEN280 
270 PRINT" FILENAME TOO LONG! " :GOTO250 
280 OPEN 15,8,15,"I0":OPEN2,8,2,"#" 
290 T=18:S=1 

300 PRINT#15,"B-R";2;0;T;S 

310 PRINT#15,"B-P";2;0 

320 GET#2,X$:IFXS=""THENXS=CHR$(0) 

325 T=ASC(X$) 

330 GETX$ : I FX$= " "THENX$=CHR$ ( ) 
340 S=ASC(X$) 
350 FORX=0TO7 

360 PRINT#15,"B-P";2;X*32+5 
370 FF$="" 
380 FORY=0TO15 

390 GET# 2 ,X$ : I FX$= " "THENX$=CHR$ ( ) 
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400 IF ASC(XS)=160THEN430 

410 FFS=FF$+X$ 

4 20 NEXT Y 

430 IFF$=FFSTHEN490 

440 IFFLTHENPRINTFFS 

450 NEXT X 

460 IF T=0 THEN 480 

470 GOTO 300 

480 CLOSE2:CLOSE15 

485 IFFL=0THENPRINT" FILENAME NOT FOUND 1 " : GOTO 210 

490 IFFLTHENRETURN 

500 PRINT#15,"B-P";2;X*32+2 

510 GET#2,X$:IFX$=""THENX$=CHR$( 0) 

520 TY=ASC(XS) 

530 FT=TYAND1 5 

540 IFFT=0THENFT$=" DELETED" 

550 I FFT=1THENFT$=" SEQUENTIAL" 

560 I FFT=2THENFT$=" PROGRAM" 

570 IFFT=3THENFTS="USER" 

580 IFFT=4TH EN FTS=" RELATIVE" 

590 I FFT>4THENPRINT" INVALID FILE TYPE ! " :GOTO200 
600 I FT YAND1 2 8THENCLS=" YES" : GOT06 2 
610 CL$ = "NO" 

620 IFTYAND64THENPRS=" YES" :GOTO640 
630 PRS="NO" 

640 PRINT#15,"B-P"?2;X*32+30 

6 50 GET# 2 ,X$ : I FX$=" "THENX$=CHR$ ( ) 

660 LB=ASC(X$) 

670 GET# 2 ,X$ : IFXS=" "THENX$=CHRS ( ) 

680 HB=ASC(XS)*256 

690 BL=LB+HB 

700 I FFTO4THEN740 

710 PRINT#15,"B-P";2;X*32+23 

720 GET#2,XS:IFXS=""THENX$=CHR$(0) 

730 RL=ASC(XS) 

740 IFFTO2THEN890 

750 PRINT#15,"B-P";2;X*32+3 

760 GET#2,X$ : IFX$=" "THENX$=CHRS ( ) 

770 DT=ASC(XS) 

780 GET# 2 ,X$ : IFX$ = " "THENX$=CHR$ ( ) 

790 DS=ASC(X$) 

800 OPEN3,8,3,"#" 

810 PRINT#15,"B-P";3;0;DT;DS 

820 PRINT#15,"B-P";3;2 

8 30 GET#3 ,XS : IFX$=" "THENXS=CHR$ ( ) 

840 LB=ASC(XS) 

850 GET#3,X$:IFX$=""THENX$=CHR$(0) 
860 HB=ASC(X$)*256 
870 SA=LB+HB 
880 CLOSE3 

890 PRINT#15,"B-R";2;0;18 jO 
900 BF=0 

910 FORI=4TO140STEP4 

920 IFI=72THEN960 

930 PPINT#15,"B-P";2;I 
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940 GET#2 ,X$ : IFXS=" "THENX$=CHR$ ( ) 

950 BF=ASC(X$)+BF 

960 NEXT 

980 BA=664-BF 

990 IFFTO4THEN1040 

1010 BS=BL/121:IFBSOINT(BS)THENBS=INT(BS+l) 
1020 RC=INT(((BL-BS)*254)/RL) 

1040 PRINTCHRSQ47) ; "SCREEN OR PRINTER (S/P)?" 

1050 GETX$:IFXS<>"S"ANDXSO"P"THEN1050 

1060 RES=CHR$( 18) sRA$=CHR$( 146) 

1070 IFXS = "S"THENOPENl ,3:PRINT#1 ,CHR$( 147) 

1080 IFX$="P"THENOPENl,4 

1090 PPINT#1,"FILE PARAMETERS ";RE$;FS;RO$ 

1100 PRINTtl," » 

1110 PPINT#1,"FILE TYPE: "; PES ;FT$ ;RA$ : PRINT* 1 

1120 PRINT#1,"FILE CLOSED: " ; RES ;CL$ ; RAS : PRINT* 1 

1130 PRINT* 1," FILE PROTECTED: " ;RE$ ;PRS ; RAS : PRINT* 1 

1140 PRINT* 1 , "ALLOCATED BLOCKS: " } RES ;BL; RAS : PRINT* 1 

1150 IFFTO4THEN1200 

1160 PRINT* 1 , " RECORD LENGTH: RES jRL; RAS : PRINT* 1 

1170 PRINT* 1," SIDE-SECTOR BLOCKS: " ;RE$ ; BS; RAS : PRINT* 1 
1180 PRINT* 1 , " DATA BLOCKS: " ; RES ; BL-BS ; RAS : PRINT* 1 

1190 PRINT* 1," RECORDS: RES ?RC; RAS : PRINT* 1 

1200 IFFT=2THENPRINT#1, "START ADDRESS: "; 

RES ; SA; RAS: PRINT* 1 
1210 PRINT* 1," FREE BLOCKS (DISK): " ; RES ;BF ; PAS : PRINT* 1 
1220 PRINT* 1," ALLOCATED BLOCKS ( D) :"; RES ; BA; RAS : PRINT* 1 
1230 CLOSE1 

1240 PRINT"MORE ( Y/N ) ? " 
1250 CLOSE2:CLOSE15 

1260 GETXS:IFX$O"Y"ANDXSO"N"THEN1260 
1270 IFXS="Y"THEN100 



4.1.2 Scratch-protect Files - File Protect 

As already mentioned, it is possible to protect files on the 
VIC-1541 diskette and save this information in the 
directory. A file's type is contained in byte of the file 
entry. Bit 6 denotes a protected file. If this bit is set to 
1, the file can no longer be deleted with the SCRATCH 
command. But because the DOS has no command to set this bit 
an alternative way must be used to protect a file. 

With the following program, you can: 

* display all files on the disk 

* protect files 

* unprotect files 

* erase files 

This program can delete protected files as well as 
unprotected files. If you wish to delete a protected file, 
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you must confirm it. This program is also documented with a 
variable usage and descriptions so that you can use these 
techniques in your own programs. 

List of Variables: 

DF - Flag, set in the routine "read/search file" if the 

desired filename is found 
FL - Set if the routine "read/search file" is only to be 

used for listing files 
FT - Variable for storing the filetype 
T - Track of the actual block of the file entry 
S - Sector of the actual block of the file entry 
TT -Track, in which the file entry block of the desired 

file is found 

SS - Sector, in which the file entry block of the desired 

file is found 
FFS - last filename read from the directory 
F$ - filename to search for 



Program Documentation: 

100 Set the screen color 

110 - 230 Program header and option menu 

240 - 260 Read the menu choice and call the appropriate 

subroutine 
270 Back to the option menu 

2ff'0 - 350 Subprogram "list all files" 
310 Erase screen 

320 Set flag FL to list files in the subroutine 
"read/search file" 

350 Peset the flag and jump back 
360 - 600 Subroutine "protect file" 

390 Call subroutine "input filename" 

400 Call the subroutine "read/search file" 
410 - 450 Test if the file is found 
460 - 480 Read file type and store in FT 
490 - 500 Test if the file is already protected 

510 Protect file (bit 6 to 1) 
520 - 550 Transfer the file type to the buffer and write the 
block to disk 

560 Close the channel 
570 - 600 Message "File protected" and jump back 
610 - 850 Subroutine "unprotect file" 

640 Call subroutine "input filename" 

650 Call subroutine "read/search file" 
660 - 700 Test if file is found 
710 - 730 Read file type and store in FT 
740 - 750 Test if the file is already unprotected 

760 Unprotect the file (bit 6 to 0) 
770 - 800 Transfer the file type to the buffer and write 
the block to the disk > 

810 Close the file 
820 - 850 End the subroutine 
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860 -1170 Subroutine "erase a file" 

890 Call the subroutine "input filename" 
900 Call the subroutine "read/search file" 
910 - 950 Test if the file is found 
960 - 980 Read the file type and save in FT 

990 Test if the file is protected 
1000-1030 Indicate that the file is protected, with the 

possibility to erase it anyway 
1040-1060 Ask if the file should really be erased 

1070 Bit 6 set back, if protected 
1080-1110 Transfer the file type to the buffer and write 
the block to the disk 
1120 Initialize the diskette 
1130 Erase the file 
1140-1170 End the subroutine 
1190-1560 Subroutine "read/search file" 

1220 Open the command and data channels 
1230-1240 Read directory and set buffer pointer 
1250-1320 Test if the disk contains a write protect. For 

this purpose, the directory is written back to the 
disk unchanged (line 1250). If the disk has a 
write protect tab on it, the error message 26, 
WRITE PROTECT ON will occur. 
1330 Initial values for the track and sector variables 
are set 

1340-1350 Read the file entry block and position the buffer 

pointer to the first byte 
1360-1390 Read the address of the next file entry block 
1400-1530 Loop to read filenames. The names are then either 

listed on the screen or compared to the desired 

filename, based on the value of flag PL 
1540-1560 If the variable T (track) contains zero, no more 

file entry blocks follow and the subroutine ends. 

BASIC Listing of the Program: 

100 POKE 53280, 2:POKE53281, 2 :PRINTCHR$ ( 158 ) ; CHR$>( 147 ) ; 
110 PRINTTAB(8) ;"=======================» 

120 PRINTTAB(8) ;"ERASE AND PROTECT FILES" 
130 PRINTTAB(8) ;"=======================" 

140 PRINT: PRINT 

150 PRINT"WITH THIS PROGRAM, FILES CAN BE" 
160 PRINT" PROTECTED, ERASED, AND UNPROTECTED" 
180 PRINT:PRINT 

190 PRI NTTAB ( 6 ) ; " -1- LIST ALL FILES":PRINT 
200 PRINTTAB( 6 ) ; " -2- PROTECT A FILE" :PRINT 
210 PRI NTTAB ( 6 ) ; " -3- UNPROTECT A FILE" : PRINT 
220 PRINTTAB( 6 ) ; " -4- ERASE A FILE" :PRINT 
230 PRI NTTAB ( 6 ) ; " -5- END THE PROGRAM" : PRINT 
240 GETX$:IFX$=""ORVAL(XS)<lORVAL(X$)>5THEN240 
250 IFVAL(X$)=5THENEND 
260 ONVAL(X$)GOSUB280,360,610,860 
270 GOTO 100 

280 REM 

290 REM LIST ALL FILES 



275 



Anatomy of the 1541 Disk Drive 



300 REM 

310 PRINTCHR$(147) 

320 FL=1:GOSUB1190 

330 PRINT : PRINT" RETURN FOR MORE" 

340 INPUTX$ 

350 FL=0: RETURN 

360 REM 

370 REM PROTECT A FILE 

380 REM 

390 GOSUB1580 
400 GOSUB1190 
410 IFDF=1THEN460 

420 PRINT"FILE NOT FOUND! ": PRINT 
430 PRINT "RETURN FOR MORE" 
440 INPUTX$:CLOSE2:CLOSE15 
450 RETURN 

460 PRINTS 15, "B-P" ?2;X*32+2 

470 GET#2 ,X$ : IFX$=" "THENX$=CHR$ ( ) 

480 FT=ASC(X$) 

490 IF( FT AND 64)=0 THEN 510 

500 PRINT"FILE IS ALREADY PROTECTED! " :PRINT:GOTO430 

510 FT= ( FT OR 64) 

520 PRINT#15,"B-P";2;X*32+2 

530 PRINTS 2 ,CHR$ ( FT) ; 

540 PRINT#15,"B-P";2;0 

550 PRINT#15,"U2" ?2;0;TT;SS 

560 CLOSE2:CLOSE15 

570 PRINT"FILE PROTECTED." 

580 PRINT" RETURN FOR MORE" 

590 INPUTX$ 

600 CLOSE2:CLOSE15:RETURN 

610 REM 

620 REM UNPROTECT A FILE 

630 REM 

640 GOSUB1580 
650 GOSUB1190 
660 IFDF=1THEN710 

670 PRINT"FILE NOT FOUND! ": PRINT 
680 PRINT" RETURN FOR MORE" 
690 INPUTX$:CLOSE2:CLOSE15 
700 RETURN 

710 PRINT#15,"B-P";2;X*32+2 

720 GET#2 ,X$ : I FX$=" "THENX$=CHR$ ( ) 

730 FT=ASC(X$) 

740 IF (FT AND 64 ) =64THEN760 

750 PRINT"FILE IS ALREADY UNPROTECTED! " :PRINT:GOTO680 

760 FT=(FTAND255-64) 

770 PRINT#15,"B-P";2;X*32+2 

780 PRINT* 2,CHR$( FT) ; 

790 PRINT#15,"B-P";2;0 

800 PRINT#15,"U2";2;0;TT;SS 

810 CLOSE2:CLOSE15 

820 PRINT" FILE UNPROTECTED." 

830 PRINT"RETURN FOR MORE" 

840 INPUTX$ 
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850 RETURN 

860 REM 

870 REM ERASE A FILE 

880 REM 

890 GOSUB1580 
900 GOSUB1190 
910 IFDF=1THEN960 

920 PRINT" FILE NOT FOUND! " : PRINT 
930 PRINT" RETURN FOR MORE" 
940 INPUTX$:CLOSE2:CLOSE15 
950 RETURN 

960 PRINT#15,"B-P";2;X*32+2 

970 GET#2,X$:IFX$=""THENX$=CHR$(0) 

980 FT=ASC(X$) 

990 IF( FT AND 64 ) =0THEN1040 

1000 PRINT"WARNING! FILE IS PROTECTED!" 

1010 PRI NT" UNPROTECT AND ERASE ( Y/N ) ? " 

1020 GETX$ : IFXSO" Y"ANDX$O"N"THEN1020 

1030 IFX$="N"THEN1170 

1040 PRINT"ARE YOU SURE (Y/N)?" 

1050 GETX$ : IFX$<>" Y"ANDX$O"N"THEN1050 

1060 IFX$="N"THEN1170 

1070 FT= ( FT AND 255-64) 

1080 PRINT#15,"B-P";2;X*32+2 

1090 PRINT#2,CHR$(FT) ; 

1100 PRINT#15,"B-P";2;0 

1110 PRINT#15,"U2";2;0;TT;SS 

1120 PRINT#15,"I0" 

1130 PRINT#15,"S:"+F$ 

1140 PRINT"FILE ERASED." 

1150 PRINT" RETURN FOR MORE" 

1160 INPUTXS 

1170 CLOSE2 :CLOSE15 : RETURN 
1180 REM 

1190 REM 

1200 REM READ / SEARCH FILE 

1210 REM 

1220 OPEN15,8,15,"I0":OPEN2,8,2,"#" 

1230 PRINT#15,"B-R";2;0;18f0 

1240 PRINT#15,"B-P";2;0 

1250 PRINT#15,"U2";2;0;18;0 

1260 INPUT#15,X1$ 

1270 IF VAL(X1$)<>26 THEN 1330 

1280 PRINT" PLEASE REMOVE THE WRITE PROTECT TAB FROM" 
1290 PRINT"THE DISKETTE BEFORE USING THIS PROGRAM." 
1300 PRINT"RETURN FOR MORE" 
1310 INPUTXS 

1320 CLOSE2:CLOSEl 5: RETURN 

1330 T=18:S=1:TT=18:SS=1 

1340 PRINT#15,"B-R";2;0;T;S 

1345 TT=T:SS=S 

1350 PRINT#15,"B-P";2;0 

1360 GET#2,X$:IFX$=""THENX$=CHR$(0) 

1370 T=ASC(X$) 

1380 GET#2,X$ : IFX$=""THENX$=CHR$ (0) 
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1390 S=ASC(X$) 
1400 FORX=0TO7 

1410 PRINT#15,"B-P";2;X*32+2 

1420 GET#2,X$:IFX$=""THENX$=CHR$(0) 

1430 IPASC(X$)=0THEN1530 

1440 PRINT#15,"B-P";2;X*32+5 

1450 FF$="" 

1460 FORY=0TO15 

1470 GET#2,X$:IFX$=""THENX$=CHR$(0) 
1480 IFASC(X$)=160THEN1500 
1490 FF$=FF$+X$ 
1500 NEXTY 

1510 IFFLTHENPRINTFF$:GOTO1530 

1520 IFF$=FF$THENDF=l:GOTO1570 

1530 NEXTX 

1540 IFTO0THEN1340 

1550 CLOSE2:CLOSE15 

1560 IFFL=OTHENPRINT" FILENAME NOT FOUND! " : FORI=lTO2000 : 

NEXT 
1570 RETURN 

1580 REM 

1590 REM INPUT FILENAME 

1600 REM 

1610 PRINT: PRINT 

1620 INPUT" FILENAME : " ; F$ 

1630 IFLEN(F$X=16THEN1650 

1640 PRINT" FILENAME TOO LONG! " 2GOTO1620 

1650 DF=0:FL=0 

1660 RETURN 

This utility program was written for the CBM 64. This 
version can also be run on the VIC 20. Only line 100 which 
sets the screen color on the CBM 64 need be changed or 
ignored. If you value perfect video output, lines 110-230 
can also be changed to accommodate the VIC 20's smaller 
screen size. 



4.1.3 Backup Program - Copying a Diskette 

The VIC 1541 disk drive does not allow disks to be 
duplicated since it is a single drive, as the double drives 
permit with the COPY or BACKUP commands of BASIC 4.0. With 
the 1541, each program to be copied must be transferred 
through the computer. 

Here's an example of how you might copy a diskette using a 
single disk drive: 

First, the BAM as well as the names and IDs of the disk to 
be copied are read into the computer. From the information 
in the BAM, you can determine which blocks of the original 
diskette are used. In order to save time, only the allocated 
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blocks are copied. Then a direct access file is opened and 
the first 169 (as many as will fit in the memory of tt-e 
Commodore 64) allocated blocks are read. Then the user is 
asked to put a new diskette in the drive. The new diskette 
is then formatted with the name and ID of the original 
diskette. Now the previously read blocks are written to the 
diskette. The next 169 blocks of the original diskette are 
read into memory and written out to the destination 
diskette. This ends after four disk swaps, at which time the 
entire diskette will have been copied. 

The program is written in BASIC except for the portion which 
reads and writes the direct access file. This part is 
written in machine language which is considerably faster 
than a GET# loop in BASIC. Because of the nature of the 
program, the number of diskette changes is dependent on the 
free storage in the computer. A VIC 20 with a 16K expansion 
requires 11 changes of original and destination diskettes. 

Here is a time comparison between this program and 
duplication on a double drive with the same capacity. Our 
program requires about 20 minutes, while the CBM 4040 does 
it in about 3 minutes. 

Duplicating a diskette with this program is quite simple. 
You need only follow the messages on the screen to insert 
the original or destination diskette. The program does the 
rest for you. 



100 REM BACKUP PROGRAM C64 - VIC 1541 
110 REM 

120 POKE56,23:CLR:GOSUB640 
130 0PEN1,8,15 

140 DIM B%(35,23) ,S%(35) ,Z(7) ,A$(1) 

150 A$(0)="DESTINATION" : AS ( 1 )= "ORIGINAL" :R=1 

160 AD=23*256:GOSUB590 

170 POKE250,0:POKE251,AD/256 

180 GOSUB530:GOSUB290 

190 PRINTNS" BLOCKS TO COPY":PRINT 

200 T=1:S=0 

210 FORI=lTO4:TT=T:SS=S:R=l:IFI=lTHEN240 
220 IFR=0ANDI=lTHENGOSUB450 :GOTO240 
230 GOSUB590 

240 POKE251, AD/256 :F0RJ=1T0169 
250 IFB%(T,S)=0THENGOSUB570 

260 S=S+1 : IFS=S% ( T) THENT=T+1 :S=0 : IFT=36THENJ=169 

270 NEXT:IFRTHENR=0:T=TT:S=SS:GOTO220 

280 NEXT:GOTO510 

290 T=18:S=0:GOSUB570 

300 NS=0:FORT=lTO35:S=0 

310 NS=NS+S%(T)-PEEK(AD+4*T) 

320 FORJ=1T03 

330 B=PEEK(AD+4*T+J) 

340 FORI=0TO7 
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340 FORI=0TO7 

350 B%(T,S)=B AND 2(I):S=S+1 

360 NEXT I, J 

370 FOR S=S%(T)TO23 

380 B%(T,S)=-1 : NEXT S,T 

390 FOP I=0TO15 

400 A=PEEK(AD+144+I) 

410 IFAO160THENN$=N$+CHR$(A) 

420 NEXT 

430 I$=CHR$(PEEK(AD+162) ) +CHR$ ( PEEK( AD+163 ) ) 
440 PRINTNS , IS : RETURN 

450 PRINT" PLEASE INSERT NEW DISKETTE" 

460 PRINT"AND PRESS RETURN" : PRINT :P0KE1 98 ,0 : CLOSE 2 

470 GETA$!IFASOCHR$(13)THEN470 

480 PRINT#1,"N0:"N$","I$ 

490 INPUT#1,A,B$,C,D:IFATHENPRINTA" ,"B$" ,"C" ,"D:END 

500 GOTO630 

510 CLOSE2:CLOSEl:END 

520 REM SECTORS PEP TRACK 

530 F0RT=1TO35 

540 S% ( T)=21 : IFT>17THENS% ( T) =19 : IFT>24THENS% ( T) =18 : 

IFT>30THENS%(T)=17 
550 NEXT 

560 FORI=0TO7 : Z ( I ) =2t I : NEXT : RETURN 

570 IFRTHENPRINT#1,"U1 2 0"T;S :SYSIN : RETURN 

580 PRINT#1,"B-P 2 0" : SYSOUT:PRINT# 1 , "U2 2 0"T; S tRETURN 

590 CLOSE2:PRINT"PLEASE INSERT "AS ( R) " DISKETTE." 

600 PRINT"AND PRESS RETURN" : PRINT: POKE198 ,0 

610 GETA$:IFA$OCHR$(13)THEN610 

620 PRINT#1,"I0" 

630 OPEN2,8,2,"#":RETURN 

640 FOR I = 828 TO 873 : REM READ MACHINE LANG. PROGRAM 
650 READ X : POKE I ,X : S=S+X : NEXT 

660 DATA 162, 2, 3 2,198,255,160, 0, 32,207,255,145,250 
670 DATA 200,208,248,230,251, 32,204,255, 96,198, 1,162 
680 DATA 2, 3 2,201,255,160, 0,177,250, 32,210,255,200 
690 DATA 208,248,230,251, 32,204,255,230, 1, 96 
700 IF S0 7312 THEN PRINT "ERROR IN DATA ! ! " : END 
710 IN=828:OUT=849 -.RETURN 



4.1.4 Copying Individual Files to another Diskette 

The following program permits you to copy individual files 
from one diskette to another. The files can be programs 
(PRG), sequential files (SEO) or user files (USP). Relative 
files cannot be copied with this program; these can be 
copied with a BASIC program that reads all data records into 
a string array and then writes them back again into a new 
file. 

In the first pass, the program reads the complete file into 
the memory of the Commodore 64. Then the destination 
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Next the complete file is written on the second disk. The 
computer has 49 Kbytes for data storage; you can handle up 
to 196 blocks on the diskette. 

For reasons of speed, the reading and writing of the data is 
performed by a machine language program, which is stored in 
DATA statements. 

The program is suited for copying sequential files as 
already mentioned, as well as programs of all kinds; the 
start address (of a machine language program) is not 
relevant. 



100 REM FILE COPIER PROGRAM C64 
110 REM 

120 POKE 56,12 : CLR 
130 GOSUB 1000 
140 INPUT" FILENAME ";N$ 
150 PRINT"FILE TYPE "; 

160 GETTS : IFT$<> "S"ANDT$O"P"ANDT$O"U"THEN160 
170 PRINTT$ :PRINT 

180 PRINT"PLEASE INSERT ORIGINAL DISK" 

190 PRINT"AND PRESS A KEY" :PRINT 

200 GETA$ : IFAS=" "THEN200 

210 OPEN 2,8,2,N$+","+T$ 

220 POKE 3,0:POKE 4,12:SYS 866 

230 CLOSE 2 

240 PRINT" PLEASE INSERT DESTINATION DISK" 

250 PRINT"AND PRESS A KEY" :PRINT 

260 GETA$:IFA$=""THEN260 

270 OPEN 2,8,2,N$+","+T$+",W" 

280 POKE 3,0:POKE 4,12:SYS 828 

290 CLOSE 2 : END 

1000 FOR I = 828 TO 898 

1010 READ X : POKE I ,X : S=S+X : NEXT 

1020 DATA 162, 2, 32,201,255,198, 1,160, 0, 56,165, 3 
1030 DATA 229, 5,165, 4,229, 6,176, 13,177, 3, 32,210 
1040 DATA 255,230, 3,208,236,230, 4,208,232,230, 1, 76 
1050 DATA 204,255,162, 2, 32,198,255,160, 0, 32,207,255 
1060 DATA 145, 3,230, 3,208, 2,230, 4, 36,144, 80,241 
1070 DATA 165, 3,133, 5,165, 4,133, 6, 76,204,255 
1080 IF S08634 THEN PRINT " ERROR IN DATA ! ! " : END 
1090 RETURN 



4.1.5 Reading the directory from within a program 

Sometimes applications programs store user data in a file 
under a desired name. If you want to use this file again, 
but you cannot remember the file name, then you have a 
problem. If this happens, you must exit the program, search 
for the name in the directory, reload the program and start 
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again. To avoid this, you can include a directory listing 
routine in your program. If you forget the filename, you can 
display the directory with a function key, for example, 
without the need to leave the program. Here is a sample of 
such a routine: 

100 PRINTCHRS ( 147 ) ; 

110 OPEN15,8,15,"I0":OPEN2,8,2,"#" 
120 T=18-.S=1 

130 PRINT#15,"B-R";2;0;T;S 

140 PRINT#15,"B-P";2;0 

150 GET* 2 ,X$ : I FX$= " "THENX$=CHR$ ( ) 

160 T=ASC(X$) 

170 GET#2,X$:IFX$=""THENX$=CHR$(0) 
180 S=ASC(X$) 
190 FORX=0TO7 

200 PRINT#15,"B-P";2;X*32+5 
210 FF$=" n 
220 FORV=0TO15 

230 GET#2 ,X$ j IFX$=" "THENXS=CHRS ( ) 
240 IFASC(X$)=160THEN270 
250 FF$=FF$+X$ 
260 NEXTY 

270 IFA=0THENA=1:PRINTFF$; :GOTO290 

280 A=0:PRINTTAB(20) ;FF$ 

290 NEXTX 

300 IFTO0THEN130 

310 CLOSEl:CLOSE2 

320 PRINT"RETURN FOR MORE" 

330 INPUTXS 

340 END: REM IF SUBROUTINE, THEN RETURN HERE 



In order to select the filename, the directory is printed on 
the screen. Should this program be used as a subroutine 
(called with GOSUB) line 340 must contain RETURN instead of 
END. 

We used this routine in the utility programs in sections 
4.1.1 and 4.1.2. 
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4.2 The Utility Programs on the TEST/DEMO Disk 

There are many 1541 owners that know little about the 
programs contained on the Test/Demo disk. The main reason is 
that these programs are largely undocumented. The following 
descriptions of these programs should help yout 



4.2.1 DOS 5.1 

The DOS 5.1 simplifies the operation of the VIC-1541 DOS. It 
can run on the VIC-20 or Commodore 64. To load DOS 5.1 on 
the VIC-20, give the commands 

LOAD"VIC-20 WEDGE", 8 
RON 

This is the loader for DOS 5.1 for the VIC 20. 

If you want to use it on the Commodore 64, give the 
commands: 

LOAD" C- 6 4 WEDGE", 8 
RUN 

This loads DOS 5.1 into the CBM 64. 

What does this DOS 5.1 offer? It allows you to send 
convenient commands to the 1541 disk drive. If, for example, 
you want to display the directory on the screen, you use the 
DOS 5.1 command @$ or >$. This does not erase the program in 
memory. 

The individual commands of the DOS 5.1 



Command Function 



@$ or >$ 

@V or >V 

§C: ... or >C: . . . 

®file or /file 

@ or > 

@Ns ... or >N: . . . 
@I or >I 

8R: ... or >R: . . . 
@S: ... or >S: . . . 
@#n or >#n 
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Display the directory 
Same function as "VALIDATE" 
Copy files (COPY) 
Load program 

Read and display error message 
Format a diskette 
Intitialize the disk 
Rename a file (RENAME) 
Erase a file (SCRATCH) 
Change disk device to n 
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4.2.2 COPY/ALL 

With the program COPY/ALL files can be copied between disk 
drives with different addresses. A drive must be changed 
from device address 8 with the program DISK ADDR CHANGE 
before this can occur. After starting the program, the 
message : 

disk copy all jim butterfield 

from unit? 8 

appears on the screen. Here you give the device address of 
the disk drive from which you wish to get the files. If this 
address is 8, just press RETURN. After this you give the 
corresponding drive number of this unit (always for single 
drives). In this manner .you also give the device address of 
the destination drive. Once this has occurred, the program 
asks 

want to new the output disk 
?n 

You are being asked if the destination diskette should te 

formatted. You answer with 'y' (yes) or 'n' (no). 

Then you can choose the files you want to copy with the 

wildcard (*). If all files are supposed to be copied, just 

give the asterisk. 

Now the program gives the message 

hold down 'y* or 'n' key to select 

The program displays the files on the original disk, which 
you can select with the 'y' key (yes) or 'n' (no). The files 
by which you pressed 'y' will be copied. 

If, during the copying process, asterisks (***) appear behind 
the files, it means that an error has occurred. 
If there is not enough room on the destination disk, "*** 
output disk full" and "do you have a new one" appears. The 
remaining files can be put on another formatted diskette. To 
do this, answer 'y' when ready. 

At the the conclusion of the copying process, the number of 
free blocks on the destination disk is displayed. 



4.1.3 DISK ADDR CHANGE 

With this program, the device address of a disk drive can be 
changed through software. After starting the program, turn 
all drives off except for the one you wish to change. Now 
enter the old and new device addresses. 
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After this, the address is changed and the other drive can 
be turned back on. 

The following drives can be changed with this program: 



2031 


DOS 


V2.6 


2040 


DOS 


VI. 1 


4040 


DOS 


V2.1 


4040 


DOS 


V2.7 


8050 


DOS 


V2.5 


8050 


DOS 


V2.7 


8250 


DOS 


V2.7 



4.2.4 DIR 

This is a small help program with the following 
possibilites: 



d - display the directory on the screen 

> - With this character, a disk command can be given 
in shortened form (for example, >N:TEST,KN to 
format a diskette) 

q - exit the program 

s - display the error channel 

These possibilities are also found in DOS 5.1, along with 
other commands. 



4.2.5 VIEW BAM 



With this utility program you can view the usage of diskette 
blocks on the screen. This table displays the sectors in 
columns and the tracks in rows. Crosses indicate free blocks 
and reverse crosses indicate allocated blocks, 'n/a' means 
that these blocks do not exist on the track. 

After outputting the table, the diskette name and the number 
of free blocks is displayed. 



4.2.6 CHECK DISK 

The utility program CHECK DISK tests every block on the 
diskette by writing to and reading from it. The current 
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block and the total number of tested blocks is displayed on 
the screen. 



4.2.7 DISPLAY TSS 



If you are interested in the construction of the individual 
blocks of the disk and want to display these on the screen, 
this utility program will help you. After starting the 
program you give the desired track and sector. This will 
then be sent to the printer or screen. The DISK-MONITOR 
contained in this book is a easier to use, because it allows 
you to change blocks and save them again. 



4.2.8 PERFORMANCE TEST 

This program makes it possible to test the mechanics of the 
VIC-1541 disk drive. To accomplish this, all the access 
commands are executed, in the following order: 

1. Disk is formatted 

2. A file is opened for reading 

3. Data are written to this file 

4. The file is closed again 

5. This file is opened for reading 

6. The data are read 

7. The file is closed again 

8. The file is erased 

9. Track 35 is written 

10. Track 1 is written 

11. Track 35 is read 

12. Track 1 is read 



After each access of the disk the error channel is 
displayed. In this manner, it can be established which 
access of the disk is not executed properly. 

When using this program, use only diskettes containing no 
important data because the entire diskette is erased during 
the testing. 
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Anatomy of tbe 1541 Disk Drive 
BASIC-Expansion and Programs for easy Use of the 1541 



4.3.1 Input strings of desired length from the disk 

Reading data from the disk with the INPUTS statement has one 
major disadvantage - only data items having fewer than 88 
characters can be read. This is because the input buffer of 
the computer is limited. In addition, not all characters can 
be read with the INPUT* statement. If a record contains a 
comma or colon, BASIC views it as a separating character and 
the remainder of the input is assigned to the next variable. 
If the INPUTS statement has only one variable, the remainder 
is ignored and the next INPUTS statement continues reading 
past the next carriage return (CHRS(13)). The alternative, 
to read the input with a GETS statement but results in much 
slower input. 

To avoid these disadvantages, we can use a small machine 
language routine. 

We will change the INPUTS statement, so that we can specify 
the number of characters to be read. To distinguish it from 
the normal INPUTS statement, we name the command INPUT*. The 
syntax looks like this: 

INPUT* lfn, len, var 

Lfn is the logical file number of the previously OPENed 
file, len is the number of characters to be read, and var is 
the string variable into which the characters are to be 
read. A program excerpt might look like this: 

100 OPEN 2,8,2, "FILE" 
110 INPUT* 2, 100, AS 

This reads a string of 100 characters from the opened file 
into AS. This procedure is especially suited for relative 
files, because a complete record can be read with one 
command after positioning the record pointer. The 
partitioning of record into fields can be accomplished with 
the MIDS. function. An elegant method of creating records is 
described in the next section. 

With this procedure it is no longer necessary to end a 
record with a carriage return. You can especially make use 
of the maximum record length with relative files: 

100 OPEN 1,8,15 

110 OPEN 2,8,2, n REL-FILE,L,"+CHRS(20) 
120 PFINTS1, "P"+CHRS(10)+CHRS(0)+CHR$(1) 
130 PRINTS 2, "12345678901234567890"; 
140 PRINTS 1, "P" + CHRS(10)+CHR$(0)+CHRS(1) 
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150 INPUT* 2,20,A$ 
160 PRINT A$ 

12345678901234567890 

Here is the assembler listing for the machine language 
program. It resides in the cassette buffer just like a 
loader program in BASIC for the Commodore 64 and VIC 20. 



110: 033C 
























; INPUT* 


LFN, 


LEN r A$ 


150 


033C 








INPUT 


EOU 


$85 


160 


033C 








STAR 


EQU 


$AC 


170 


033C 








BASVEC 


EOU 


$308 


ion 


033C 








CHRGET 


EOU 


$73 


i q a 


033C 








CHRGOT 


EOU 


CHRGET + 6 


*> i n 
z ± u 


fl "i tf 








; C64 VERSION 




Z Z U 


n ■> 














TO/I 


UJJL 








CHKIN 


EOU 


$E11E 


■aon 
jy U 


U i JC 








BASIN 


EOU 


$E112 


Ann 










CHKCOM 


EOU 


$AEFD 


410 


033C 








INTER 


EOU 


$A7AE 


420 


033C 








EXECOLD 


EOU 


SA7E7 


430 


033C 








INPUTOLD 


EOU 


$ABBF 


440 


033C 








FINDVAR 


EOU 


$B08B 


450 


033C 








STRRES 


EOU 


$B475 












FRESTR 


EQU 


$B6A3 


470 


033C 








GETBYT 


EOU 


$B79E 












; VIC 20 


VERSION 


240 


033C 








CHKIN 


EOU 


$E11B 


250 


033C 








BASIN 


EOU 


$E10F 


260 


033C 








CHKCOM 


EQU 


$CEFD 


270 


033C 








INTER 


EOU 


$C7AE 


280 


033C 








EXECOLD 


EQU 


$C7E7 


290 


033C 








INPUTOLD 


EQU 


$CBBF 


300 


033C 








FINDVAR 


EOU 


$D08B 


310 


033C 








STRRES 


EQU 


$D475 


320 


033C 








FRESTR 


EOU 


$D6A3 


330 


033C 








GETBYT 


EOU 


$D79E 












; COMMON 


LABELS 


490 


033C 








VARADR 


EOU 


$49 


500: 033C 








CLRCH 


EOU 


$FFCC 


510 


033C 








PARA 


EOU 


$61 


530 


033C 








? 


ORG 


828 


540 


033C 


A9 


47 




INIT 


LDA 


#<TEST 


550 


033E 


AO 


03 






LDY 


#>TEST 


560: 0340 


8D 


08 


03 




STA 


BASVEC 


570: 0343 


8C 


09 


03 




STY 


BASVEC+1 
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580: 0346 


60 








RTS 








600 


0347 


20 


73 


CO 


r 

TEST 


JSR 


CHRGET 






610 


034A 


C9 


85 






CMP 


# INPUT 






620 


034C 


FO 


06 






BEQ 


FOUND 






630 


034E 


20 


79 


00 




JSR 


CHRGOT 






640 


0351 


4C 


E7 


A7 




JMP 


EXECOLD 


? 


TO THE OLD 




















ROUTINE 


650 


0354 


20 


73 


00 


FOUND 


JSR 


CHRGET 






660s 0357 


C9 


AC 






CMP 


#STAR 


i 


NEW INPUT 




















ROUTINE 


670s 0359 


FO 


06 






BEQ 


OKSTAR 






680: 035B 


20 


BF 


AB 




JSR 


INPUTOLD 






680: 035E 


4C 


AE 


A7 




JMP 


INTER 






690 


0361 


20 


9B 


B7 


OKSTAR 


JSR 


GETBYT-3 


7 


GET FILE 




















NUMBER 


700 


0364 


20 


IE 


El 




JSR 


CHKIN 






710 


0367 


20 


FD 


AE 




JSR 


CHKCOM 






720 


036A 


20 


9E 


B7 




JSR 


GETBYT 


7 


LENGTH 


730 


036D 


8A 








TXA 








730 


036E 


48 








PHA 




J 


NOTICE 


740 


: 036F 


20 


FD 


AE 




JSR 


CHKCOM 






750 


0372 


20 


8B 


BO 




JSR 


FINDVAR 


r 


SEARCH FOR 




















VARIABLE 


760 


0375 


85 


49 






STA 


VARADR 






760 


0377 


84 


4A 






STY 


VARADR+1 






770 


0379 


20 


A3 


B6 




JSR 


FRESTR 






780 


: 037C 


68 








PLA 




; 


LENGTH 


790 


037D 


20 


75 


B4 




JSR 


STRRES 




RESERVE PLACE 




















FOR STRING 


800 


0380 


AO 


02 






LDY 


#2 






810 


0382 


B9 


61 


00 


STORE 


LDA 


PARA , Y 






820 


0385 


91 


49 






STA 


(VARADR) 


,Y 




830 


! 0387 


88 








DEY 








840 


0388 


10 


F8 






BPL 


STORE 






850 


038A 


C8 








INY 






Y=0 


860 


038B 


20 


12 


El 


FETCH 


JSR 


BASIN 






870 


: 038E 


91 


62 






STA 


(PARA+1) ,Y 




880 


0390 


C8 








INY 








890 


: 0391 


C4 


61 






CPY 


PARA 






900 


0393 


DO 


F6 






BNE 


FETCH 






910 


: 0395 


20 


CC 


FF 




JSR 


CLRCH 






910 


0398 


4C 


AE 


A7 




JMP 


INTER 




IO INTERPRETER 



LOOP 



Here are the BASIC programs for entering the machine 
language program for the INPUT* statement. 



INPUT* , 64 Version 



100 FOR I = 828 TO 922 

110 READ X : POKE I ,X : S=S+X : NEXT 

120 DATA 169, 71,160, 3,141, 8, 3,140, 9, 3, 96, 32 
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130 DATA 115, 0,201,133,240, 6, 32,121, 0, 76,231,167 
140 DATA 32,115, 0,201,172,240, 6, 32,191,171, 76,174 
150 DATA 167, 32,155,183, 32, 30,225, 32,253,174, 32,158 
160 DATA j183,138, 72, 32,253,174, 32,139,176,133, 73,132 
170 DATA 74, 32,163,182,104, 32,117,180,160, 2,185, 97 
180 DATA 0,145, 73,136, 16,248,200, 32, 18,225,145, 98 
190 DATA 200,196, 97,208,246, 32,204,255, 76,174,167 
200 IF S <> 11096 THEN PRINT "ERROR IN DATA ! ! " : END 
210 SYS 828 s PRINT "OK." 



INPUT* , VIC 20 VERSION 



100 FOR I = 828 TO 922 

110 READ X : POKE I,X : S=S+X : NEXT 

120 DATA 169, 71,160, 3,141, 8, 3,140, 9, 3, 96, 32 
130 DATA 115, 0,201,133,240, 6, 32,121, 0, 76,231,199 
140 DATA 32,115, 0,201,172,240, 6, 32,191,203, 76,174 
150 DATA 199, 32,155,215, 32, 27,225, 32,253,206, 32,158 
160 DATA 215,138, 72, 32,253,206, 32,139,208,133, 73,132 
170 DATA 74, 3 2,163,214,104, 32,117,212,160, 2,185, 97 
180 DATA 0,145, 73,136, 16,248,200, 32, 15,225,145, 98 
190 DATA 200,196, 97,208,246, 32,204,255, 76,174,199 
200 IF S <> 11442 THEN PRINT "ERROR IN DATA J!" s END 
210 SYS 828 : PRINT "OK." 



. 4.3.2 Easy Preparation of Data Records 

If you have worked with relative files before, you know that 
a definite record length must be established. This record is 
usually divided into several fields which likewise begin at 
a definite position within the record, and have a set 
length. 

If you create a new record, for example, a separate INPUT 
statement is generally used for each field. Before the 
complete record can be written, it must be assembled 
properly. Each field must be checked for proper length. If 
it is longer than then the planned length of the 
corresponding, data field, the remainder must be truncated to 
the proper length. Here are two new BASIC commands that are 
excellently suited for this task. These new commands are 
written in machine language and are initialized with a SYS 
command. You can then use them as any other BASIC commands. 



The first command has the name !STR$ and serves to create a 
string with the length of the data record. 

A$ = !STR$(100," ") 



290 



Anatomy of the 1541 Disk Drive 



creates a string with 100 blanks and puts it in the variable 
A$. 

The next command places our data field in the previously 
created string. For example, if you want to assign the 
variable N$ containing the last name as a field of 25 
characters at position 1 in the string A$, our new command 
looks like this: 



MID$ (A$,l,25) = N$ 



Here the MID$ command is used as a so-called pseudo-variable 
on the left side of the assignment statement. What happens 
here is as follows: 

The variable N$ replaces the first 25 characters of A$. If 
the variable N$ is longer than 25 characters, only the first 
25 characters are replaced and the rest are disregarded. If 
N$ is shorter than 25 characters, only as many characters 
are replaced as N$ contains. The original characters in A$ 
remain (blanks, in our case). That is exactly as we wanted. 
Now we can program the following: 



200 INPUT "LAST NAME 
210 INPUT "FIRST NAME 
220 INPUT "STREET 
230 INPUT "CITY 
240 INPUT "STATE 
250 INPUT "ZIP CODE 
260 A$ = !STR$ (92, " ") 
270 MID$ (A$,l,25) = L$ 
280 MID$ (A$,26,20) = F$ 
290 MID$ (A$,46,20) = S$ 
300 MID$ (A$,66,15) = CS 
310 MID$ (A$,81,2) = T$ 
320 MID$ (A$,83,9) = Z$ 
330 PRINTS 2, A$ 



L$ 
F$ 
S$ 
C$ 
T$ 
Z$ 



Here is the machine language program for the Commodore 64 



135 


C800 




ORG 


$C800 


140 


: C800 


CHKOPEN 


EOU 


$AEFA 


150 


C800 


CHKCLOSE 


EQU 


$AEF7 


160 


: C800 


CHKCOM 


EOU 


$AEFD 


170 


C800 


FRMEVL 


EOU 


$AD9E 


180 


: C800 


CHKSTR 


EOU 


$AD8F 


190 


C800 


FRESTR 


EQU 


SB6A3 


200 


C800 


YFAC 


EOU 


$B3A2 


205 


C800 


CHRGET 


EOU 


$73 


210 


C800 


CHRGOT 


EOU 


CHRGET+6 


220 


C800 


GETBYT 


EQU 


SB79B 


226 


C800 


INTEGER 


EQU 


$B1AA 


229. 


C800 


DESCRPT 


EOU 


$64 


230 


C800 


STRADR 


EQU 


$62 


231: 


C800 


ADR2 


EOU 


$FB 
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9"* 9 • 


PROO 










petti 






233 : 


C800 








LENl 


EQU 






234: 


C800 








LEN2 


EQU 


4 




235 : 


C800 








NPMRPR 


EQU 


5 




236 : 


C800 








START 


EQU 


g 




237 : 


C800 










EOU 


13 




238: 


C800 










EOU 


SC4 




240 : 


C800 








TT T OtTAN 


EQU 


$B248 




241 : 


C800 








CYNTAY 


EQU 


$AF08 




242 : 


C800 








EVWvvUu 


EQU 


$B9 




243 : 


C800 










EOU 


$ 30A 




£4 D ■ 










X CiPlir 


prill 


T PMl 




9AR • 
Z *i O * 




ny 


uu 






LilJA 


ft TP CT T M 




248 : 


C802 


AO 


C8 






LDY 






248 : 


C804 


8D 


OA 


03 




STA 






248 : 


C807 


Rp 


0B 


OT 




CTV 


VPPTP.R+ 1 




248 : 


C80A 


4C 


6B 


C8 




J MP 


1 11 UU 1 A 




250 : 


C80D 


A9 


00 




TESTIN 


LDA 


an 




250 : 


C80F 


85 


0D 






STA 


TYPPT.AR 




250: 


C811 


20 


73 


00 




JSR 


CHRGET 




251: 


C814 


C9 


21 






CMP 


#"!" 




251: 


C816 


F0 


06 






BEO 


TEST2 




251: 


C818 


20 


79 


00 




JSR 


CHRGOT 




251 : 


C8 IB 


4C 


8D 


AE 




JMP 


$AE8D 




252 : 


C8 1 E 


20 


73 


00 


TEST2 


JSR 


CHRGET 




252 : 


C821 


C9 


C4 






CMP 


#STRCODE 




252 : 


C823 


F0 


03 






BEO 


STRING 




253 : 


C825 


4C 


08 


AF 




JMP 


SYNTAX 














; STRINGS FUNCTION 




900 : 


C828 


20 


73 


00 


STRING 


JSR 


CHRGET 




900 : 


C8 2B 


20 


FA 


AE 




JSR 


CHKOPEN 


•OPEN PARFN 


910 : 


C8 2E 


20 


9E 


B7 




JSR 


GETBYT+3 




920 : 


C831 


8A 








TXA 






q 9 n • 


C8 32 


48 








PHA 






930 : 


C8 3 3 


20 


FD 


AE 




JSR 


CHKCOM 




940 : 


C8 36 


20 


9E 


AD 




JSR 


FRMEVL 






C8 39 


24 


0D 






BIT 


TYPFLAG 




q £> n • 


rft ir 


"10 


oc 






BMI 


STR 




07 - 
y / U • 




90 


rirt 


Rl 




JSR 


INTEGER 




980 : 


C840 


A5 


64 






LDA 


DESCRPT 


• HIGH BYTE 


oon • 
y y u : 


r*R /i o 

CO *i Z 


nn 

U\J 


9A 






BNE 


ILL 


• >255 


iuuu: 


PR vl ^ 


a t; 
Aj 


D j 






LDA 


DESCRPT+1 


. t nw RYTP 


















XjE>WV x n 


iu i u : 




**C 


C 9 


PR 




JMP 


STR2 




X U £,\J ■ 


C8 49 


20 


82 


B7 


STR 


JSR 


$B782 


; SETSTR 


















TYPFLAG TO 


















NUMERIC 


1030! 


C8 4C 


FO 


1A 






BEO 


ILL 


; LENGTH 


1040: 


C84E 


AO 


00 






LDY 


#0 




1050: 


C850 


Bl 


22 






LDA 


($22) ,Y 


; FIRST CHAR 


1060: 


C852 


85 


03 




STR2 


STA 


TEMP 




1070: 


C854 


68 








PLA 




; LENGTH 


1080: 


C855 


20 


7D 


B4 




JSR 


$B47D 


; FRESTR 
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1090: C858 A8 



1100: C859 


F0 


07 






1110: C85B 


A5 


03 






1120: C85D 


88 






LOOP 


1120: C85E 


91 


62 






1130: C860 


DO 


FB 






1140: C862 


20 


CA 


B4 


STR3 


1150: C865 


4C 


F7 


AE 




1160: C868 


4C 


48 


B2 


ILL 












; MID$ ( 














200: C86B 








MIDCODE 


210: C86B 








EXECUT 


240: C86B 








EXECOLD 


250 


C86B 








VARNAM 


255: C86B 








VARADR 


260 


! C86B 










270: C86B 










280: C86B 








GETVAR 


290: C86B 








SETSTR 


325 


! C86B 








TEST 


330: C86B 








GETBYT 


355 


: 0003 










360 


0004 








T PNfiTH 

1_) i_j LN VJ X 11 


370 


: 0005 








PO^TTTON 


372: 0007 








VAR^TR 


375 


0007 








COMP 


378: 0007 








POINT2 


400 


C86B 


A9 


76 




MIDSTR 


410 


C86D 


AO 


C8 






420 


C86F 


8D 


08 


03 




430 


C872 


8C 


09 


03 




440 


C875 


60 








450 


C876 


20 


73 


00 




460 


C879 










470 


C87B 


r u 


U D 






480 


C87D 




7Q 


fin 




490« 


C880 


4C 


E7 


A7 




500 


C883 


20 


/ J 


nn 
u u 


m t n 

1*1 1 u 


505: C886 


20 


FA 


AE 




510: C889 


20 


8B 


BO 




520: C88C 


85 


64 






530: C88E 


84 


65 






535 


C890 


85 


49 






535 


C892 


84 


4A 






540 


C894 


20 


A3 


B6 




545 


C897 


AO 


00 






545: C899 


Bl 


64 







TAY 

BEQ STR3 
LDA TEMP 
DEY 

STA ( STRADR ) , Y ; CREATE 
STRING 

BNE LOOP 

JSR $B4CA ; BRING STRING 

IN DESCRIPTOR STACK 
JMP CHKCLOSE 
JMP ILLQUAN 



STRI NGVAR , POS , LEN ) = STRING EXP 
STRINGVAR,POS) = STRING EXP 



EOU 


$CA 




EQU 


$308 .-VECTOR FOR 




STATEMENT EXECUTE 


EOU 


$A7E7 




EOU 


$45 




EOU 


$49 




EOU 


$64 




EQU 


$AD8F 




EOU 


$B08B 




EQU 


$AA52 




EOU 


$AEFF 




EOU 


$B79E 




ORG 


3 




DST 


1 




DST 


1 




DST 


2 




EOU 


SB2 




EQU 


$50 




LDA 


KMIDTEST 




LDY 


#>MIDTEST 




STA 


EXECUT 




STY 


EXECUT+1 




RTS 






JSR 


CHRGET 




CMP 


#MIDCODE 


;CODE FOR MID$ 


BEQ 


MID 


;? YES 


JSR 


CHRGOT 




JMP 


EXECOLD 


(EXECUTE 




NORMAL STATEMENT 


JSR 


CHRGET 


; NEXT CHAR 


JSR 


CHKOPEN 


;OPEN PAREN 


JSR 


GETVAR 


;GET VAR 


STA 


DESCRPT 




STY 


DESCRPT+1 




STA 


VARADR 




STY 


VARADR+ 1 




JSR 


FRESTR 




LDY 


#0 




LDA 


( DESCRPT), Y 
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545 : 


C89B 


48 






PHA 




545 : 


C89C 


F0 


2E 




BEQ 


TT T 


550 : 


C8 9E 


20 


52 


AA 


TOD 
(J OlN 


oCilo jp , rui olKlnu AW 


560 : 


C8A1 


AO 


u ± 




t nv 

LiUX 




560 : 


C8A3 


Bl 


49 




LDA 




560 : 


C8A5 


OD 






era 




570 : 


C8A7 








TKtV 
J. IN I 




570 : 


C8 A8 


Bl 


49 








570: 


C8AA 


85 


06 




STA 


VARSTR+l 


600 : 


C8AC 


20 


FD 


AE 


U OK 


PHIf POM 


610 : 


C8 AF 


20 


9E 


B7 


JSR 


fiPTRVT «(2PT PO^ 


620: 


C8 B2 


8A 






TXA 




630 : 


C8B3 


F0 


17 




BEQ 


ILL 


650: 


C8B5 


CA 






DEX 




650 : 


C8B6 


86 


04 




STX 


PO<?TTTON 


660 : 


C8B8 


20 


79 


00 


JSR 




660 : 


C8BB 


C9 


29 




CMP 


* 'M " • END OP 
PYPRP^iQTON? 


665 : 


C8BD 


DO 


04 




BNE 


NEXT 


665 : 


C8BF 


AQ 

A3 


r r 








665: 


C8C1 


DO 


OC 




BNE 


STORE 


670 s 


C8C3 


20 


FD 


AE 






670: 


C8C6 


20 


9E 


B7 


JSR 


GETBYT ;GET LEN 


680 : 


C8C9 


8A 






TXA 




690 : 


C8CA 


DO 


03 




BNE 


*+5 


700 : 


C8CC 


4C 


48 


B2 


TT.T .TMP 


TT.T.OIIAN 


710: 


C8CF 


85 


03 




STORE STA 


LENGTH 


715 : 


C8D1 


68 






PLA 




715: 


C8D2 


38 






SEC 




715 : 


C8 D3 


E5 


04 




SBC 


ruo xxx uii 


717: 


C8D5 


C5 


03 




CMP 


LENGTH 


717 : 


C8D7 


BO 


02 




BCS 


OK 


717: 


C8D9 


85 


03 




STA 


LENGTH 


720 :* 


C8DB 


20 


F7 


AE 




PHKPT 0<?P • CT OQP PARPN 


730: 


C8DE 


A9 


B2 




LDA 


#COMP 


770 : 


C8 E0 


20 


FF 


AE 


• JSP 


TEST 


780 : 


C8E3 


20 


9E 


AD 


JSR 


FRMEVL ; GET 'EXP 


790 : 


C8E6 


20 


A3 


66 


JSP 


FRESTR 


800 : 


C8E9 


AO 


02 




LDY 


#2 


Ann • 


C8 EB 


DJ. 


64 




LDA 


/ np^rRPTM . y 


800 : 


C8ED 


85 


51 




STA 


POINT2+1 


800 : 


C8EF 


88 






DEY 




800 : 


C8 F0 


Bl 


64 




LDA 


(DESCRPT) ,Y 


800 : 


C8F2 


85 


50 




STA 


POINT2 


810: 


C8F4 


88 






DEY 




810 : 


C8F5 


Bl 


64 




LDA 


(DESCRPT) ,Y 


820: 


C8F7 


FO 


D3 




BEO 


ILL ;0 THEN ERPOR 


840: 


C8F9 


C5 


03 




CMP 


LENGTH 


850: 


C8FB 


BO 


02 




BCS 


OKI 


860: 


C8FD 


85 


03 




STA 


LENGTH 


870: 


C8FF 


A5 


05 




OKI LDA 


VARSTR 


880: 


C901 


18 






CLC 




880: 


C902 


65 


04 




ADC 


POSITION 


910: 


C904 


85 


05 




STA 


VARSTR 
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910: 
920: 
940: 
950: 
950: 



C906 90 02 

C908 E6 06 

C90A A4 03 
C90C 88 



BCC 
INC 
LDY 
DEY 
LDA 



*+4 

VARSTR+1 
LENGTH 



LOOP 



C90D Bl 50 



(POINTl),Y ; TRANSFER 

CHARS FROM STRING 



960 
970 
970 
980 



C90F 91 05 
C911 CO 00 
C913 DO F7 



C915 4C AE A7 



STA 
CPY 
BNE 
JMP 



( VARSTR ) , Y ;EXP TO VAR 
#0 

LOOP 

SA7AE ;TO INTERPRETER 



LOOP 



For those who have no monitor or assembler for the Commodore 
64, we have written a loader program in BASIC. 

100 FOR I = 51200 TO 51479 

110 READ X : POKE I,X : S=S+X : NEXT 

120 DATA 169, 13,160,200,141, 10, 3,140, 11, 3, 76,107 
130 DATA 200,169, 0,133, 13, 32,115, 0,201, 33,240, 6 
140 DATA 32,121, 0, 76,141,174, 32,115, 0,201,196,240 
150 DATA 3, 76, 8,175, 32,115, 0, 32,250,174, 32,158 
160 DATA 183,138, 72, 32,253,174, 32,158,173, 36, 13, 48 
170 DATA 12, 32,170,177,165,100,208, 36,165,101, 76, 82 
180 DATA 200, 32,130,183,240, 26,160, 0,177, 34,133, 3 
190 DATA 104, 32,125,180,168,240, 7,165, 3,136,145, 98 
200 DATA 208,251, 32,202,180, 76,247,174, 76, 72,178,169 
210 DATA 118,160,200,141, 8, 3,140, 9, 3, 96, 32,115 
220 DATA 0,201,202,240, 6, 32,121, 0, 76,231,167, 32 
230 DATA 115, 0, 32,250,174, 32,139,176,133,100,132,101 
240 DATA 133, 73,132, 74, 32,163,182,160, 0,177,100, 72 
250 DATA 240, 46, 32, 82,170,160, 1,177, 73,133, 5,200 
260 DATA 177, 73,133, 6, 32,253,174, 32,158,183,138,240 
270 DATA 23,202,134, 4, 32,121, 0,201, 41,208, 4,169 
280 DATA 255,208, 12, 32,253,174, 32,158,183,138,208, 3 
290 DATA 76, 72,178,133, 3,104, 56,229, 4,197, 3,176 
300 DATA 2,133, 3, 32,247,174,169,178, 32,255,174, 32 
310 DATA 158,173, 32,163,182,160, 2,177,100,133, 81,136 
320 DATA 177,100,133, 80,136,177,100,240,211,197, 3,176 
330 DATA 2,133, 3,165, 5, 24,101, 4,133, 5,144, 2 
340 DATA 230, 6,164, 3,136,177, 80,145, 5,192, 0,208 
350 DATA 247, 76,174,167 

360 IF S <> 31128 THEN PRINT " ERROR IN DATA !!" : END 
370 SYS 51200 : PRINT "OK." 



4.3.3 Spooling - Printing Directly from the Disk 

If you have a printer connected to your computer in addition 
to the disk drive, you can use a special characteristic of 
the the serial bus. 

It is possible to send files directly from disk to the 
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printer, without the need to transfer it byte by byte with 
the computer. For example, if you have text saved as a 
sequential file, and you want to print it on the printer, 
the following program allows you to do so: 

100 OPEN 1,4 : REM PRINTER 

110 OPEN 2,8,2, "0:TEST" : REM TEXT FILE 

120 GET# 2 , A$ : IF ST = 64 THEN 140 

130 PRINT#1, A$; : GOTO 120 

140 CLOSE 1 : CLOSE 2 

150 END 

Characters are sent from the disk to the printer until the 
end of file is recognized. Then the two files are closed ard 
the program ended. 

The following is done when spooling: 

First both files are opened again. Then a command to receive 
data (Listen) is sent to the printer, while the disk drive 
receives the command to send data (Talk). Data are sent 
automatically from the disk to the printer until the end of 
file is reached. During this time, the computer can be used 
without interferring with the transfer of data. Only the use 
of peripheral devices is not possible during this time. 

In practice, this is done with a small machine language 
program. When you want to start printing, you call the 
program and give the name of the file which you want to 
send. 

SYS 828, "TEXT" 

OPENS the file TEXT on the diskette and sends it to the 
printer. As soon as the transfer is begun, the computer 
responds with READY, again and you can use it, as long as no 
attempt is made to access the serial bus. You can prove that 
the computer is no longer needed for transfer by pulling out 
the bus cable to the disk, so that the diskette is connected 
only to the printer. When the spooling is done, the disk 
file is still open (the red LED is still lit). You can CLOSE 
the file and turn the printer off and then back on, and give 
the SYS command without a filename (the cable to the. disk 
must be attached, of course). 

SYS 828 

With same command you can stop a transfer in progress. The 
machine language program in the form of a loader program for 
the Commodore 64 and the VIC 20 is found at the end. 

Here are some hints for use: 

We have successfully used the printer spooling with a 
Commodore 64 and a VIC 20 with a printer such as the the VIC 
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1525. Attempts using an Epson printer with a VIC interface 
as well as the VIC 1526 did not succeed. The serial bus, in 
contrast with the parallel IEEE bus, appears to be capable 
of spooling only with limitations. This is why it is 
necessary to turn the printer off after spooling, because it 
still blocks the bus. We would be happy if you would inform 
us of your experience with other printers. 



1541 



110 


033C 








CHRGOT 


130: 033C 








LISTEN 


140: 033C 








ATNRES 


142: 033C 








CLOCK 


144 


033C 








DATA 


160: 033C 








CLOSE 


170 


033C 








CLALL 


175: 033C 








SETFIL 


180 


033C 








GETNAME 


190: 033C 








OPEN 


200 


033C 








CHKIN 


202: 033C 








UNTALK 


204 


033C 








UNLISTEN 


230: 033C 








FNLEN 


240: 033C 








INDEV 


260: 033C 








NMBFLS 


280 


033C 








ERROR 


300 


033C 








t 


310 


033C 


20 


79 


00 




320 


033F 


F0 


33 






330 


0341 


20 


E7 


FF 




340 


0344 


20 


54 


E2 




350 


0347 


A6 


B7 






360 


0349 


F0 


38 






370 


0346 


A9 


02 






380 


034D 


A2 


08 






390 


034F 


AO 


02 






400 


0351 


20 


BA 


FF 




410 


0354 


20 


CO 


FF 




411 


0357 


A9 


04 






412 


0359 


20 


Bl 


FF 




413 


035C 


20 


BE 


ED 




420 


035F 


A2 


02 






430 


0361 


20 


C6 


FF 




435 


0364 


20 


BE 


ED 




435 


0367 


20 


85 


EE 




435 


036A 


20 


97 


EE 




510 


036D 


A9 


00 






520 


036F 


85 


99 






530 


0371 


85 


98 






540 


0373 


60 








550 


0374 


A9 


01 




OFF 


560 


0376 


85 


98 







64 SPOOL 



EQU 


S7Q 

S» / J 




EQU 


$FFB1 




pnn 
cyu 


S pnRP 

9 dUDJj 


• ATTN HI 






f UljUUF. til 


EQU 


$ EE97 


»r»ATA HT 


EQU 


•?r rv-j 




EQU 


$ FFE7 




EQU 


$FFBA 




EQU 


$ E254 


"PPT FTTCMiMP 


EQU 


$ FFC0 




EQU 


$ FFC6 




EQU 


$FFAB 




EQU 


$FFAE 




EQU 


$B7 




pnn 
n*yu 


$99 


• TMDflT nPUTPP 


EQU 


$98 


iMO r»p PTTPC 

, v*\j . ut rxLiCio 


EQU 


$AF08 




ORG 


828 




JSR 


L-ti KuU 1 






nop 




JSR 






JSR 


P PTH AMP 




r r\v 








CVMTfiY 




LDA 


#2 




LDX 


#8 




LDY 


#2 




JSR 


SETFIL 




JSR 


OPEN 


;OPEN FILE 


LDA 


#4 




JSR 


LISTEN 


; PRINTER 


JSR 


ATNRES 




LDX 


#2 




JSR 


CHKIN 


J DISK 


JSR 


ATNRES 




JSR 


CLOCK 




JSR 


DATA 




LDA 


#0 




STA 


INDEV 




STA 


NMBFLS 




RTS 






LDA 


#1 




STA 


NMBFLS 
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570: 


0378 


20 


AE 


FF 


JSP 


UNLISTEN 


580: 


037B 


20 


A6 


FF 


JSR 


UNTALK 


620: 


037E 


A9 


02 




LDA 


#2 


630: 


0380 


4C 


C3 


FF 


JMP 


CLOSE 


640: 


0383 


4C 


08 


AF SYNTAX 


JMP 


ERROR 



Here is the BASIC loader program for the Commodore 64 . 

100 FOR I = 828 TO 901 

110 READ X : POKE I,X : S=S+X : NEXT 

120 DATA 32,121, 0,240, 51, 32,231,255, 32, 84,226 
130 DATA 166,183,240, 56,169, 2,162, 8,160, 2, 32 
140 DATA 186,255, 32,192,255,169, 4, 32,177,255, 32 
150 DATA 190,237,162, 2, 32,198,255, 32,190,237, 32 
160 DATA 133,238, 32,151,238,169, 0,133,153,133,152 
170 DATA 96,169, 1,133,152, 32,174,255, 32,171,255 
180 DATA 169, 2, 76,195,255, 76, 8,175 
190 IF S <> 9598 THEN PRINT " ERROR IN DATA !!" : END 
200 PRINT "OK." 

For the VIC 20, use the following program: 

100 FOR I = 828 TO 901 

110 READ X : POKE I ,X : S=S+X : NEXT 

120 DATA 32,121, 0,240, 51, 32,231,255, 32, 81,226 
130 DATA 166,183,240, 56,169, 2,162, 8,160, 2, 32 
140 DATA 186,255, 32,192,255,169, 4, 32,177,255, 32 
150 DATA 197,238,162, 2, 32,198,255, 32,197,238, 32 
160 DATA 132,239, 32,160,228,169, 0,133,153,133,152 
170 DATA 96,169, 1,133,152, 32,174,255, 32,171,255 
180 DATA 169, 2, 76,195,255, 76, 8,207 
190 IF S <> 9648 THEN PRINT " ERROR IN DATA !!" : END 
200 PRINT "OK." 



298 



Anatomy of the 1541 Disk Drive 



4.4 Overlay Technique and Chaining Machine Language Programs 

A proven programming technique involves the creation of a 
menu program which then loads and executes other programs' 
based on the user's choice. There are two variations: 
preserving or clearing the old variables in the chained 
program. 

It is possible to pass the old variables if the calling 
program is as large or larger than the chained program. If a 
program is chained from another program, the pointer to the 
end of the previous program remains intact, and the new 
program loads over the old. 

In this example, we would get the following result: 



100 REM PROGRAM 1 

110 REM THIS PROGRAM IS LARGER THAN THE SECOND 

120 A = 1000 

130 LOAD "PROGRAM 2", 8 

100 REM PROGRAM 2 
110 PRINT A 

1000 

If the chained program is larger than the original program, 
part of the variables are overwritten and contain 
meaningless values. Moreover, when the variables that the 
program destroyed are assigned new values, part of the 
program is also destroyed. 

There are two characteristics of passing variables from the 
previous program that should be noted - for strings and for 
functions. 

Any string variables that are defined as constants enclosed 
in quotes in the first program, will have a problem. The 
string variable pointer points to the actual text in the 
program. If, for example, a string is defined in the first 
program with the following assignment 

100 AS = "TEXT" 

the variable pointer points to the actual text within line 
number 100. When chaining, the next program does not chance 
this pointer. New text is now at the original location, so 
the variable has unpredictable contents. We can easily work 
around this, however. We need only ensure that the text is 
copied from the program into string storage where text 
variables are normally stored. You can do this as follows: 

100 AS = "TEXT" + "" 
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By concatenating an empty string, you force the contents of 
the variable to be copied to the string storage area. 

Similar considerations apply to function definitions, 
because here also the pointer points to the definition 
within the program. Here you must define the function again 
in the second program, for. example: 

100 DEF FN A(X) = 0.5 * EXP (-X*X) 

If you want to chain a program, you can continue to use the 
old variables provided the second program is not longer than 
the first. If the chained program is longer, and we do not 
want to preserve the old variables, there is a trick we can 
use. 

We need only set the end-of-program pointer to the end of 
the new program immediately after loading. This can be done 
with two POKE commands: 

POKE 45, PEEK(174) : POKE 46, PEEK (175) : CLR 

The CLR command is absolutely necessary. This line should be 
the first line in the chained program. This allows us to 
chain a large program without transfer of variables. 
Another, not so elegant method involves writing the load 
command in the keyboard buffer so the program will 
automatically be loaded in the direct mode. To do this, we 
write the LOAD and RUN commands on the screen and fill the 
keyboard buffer with 'HOME' and carriage returns. An END 
statement must come after this in the program. The control 
system then gets the contents of the keyboard buffer in the 
direct mode and reads the LOAD and RUN commands that control 
the loading and execution of the program. Because this 
occurs in the direct mode, the end address of the program is 
automatically set, the variables are erased and the program 
is started with the RUN. The disadvantage of this method is 
that since the LOAD command must appear on the video screen, 
any display will be destroyed. In practice it looks like 
this : 

1000 PRINT CHP$ ( 147 ) " LOAD"CHR$ ( 34 ) "PROGRAM 2"CHR$ ( 34 ) " ,8 " 
1010 PRINT : PRINT : PRINT : PRINT 
1020 PRINT "RUN" 

1030 POKE 631,19 : POKE 632,13 : POKE 633,13 
1040 POKE 634,13 : POKE 635,13 : POKE 636,13 
1050 POKE 198,6 : END 

You can see that this procedure is more complicated than the 
previous one; it is only mentioned for the sake of 
completeness. With the first procedure, only the LOAD 
command need be programmed in line 1000: 

1000 LOAD "PROGRAM 2", 8 
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There is another technique for chaining machine language 
programs . 

If a machine language program is to be used from a BASIC 
program, it must usually be loaded at the beginning of the 
BASIC program. You must take note of two things: 

First of all, you must make sure that the machine language 
program loads to a specific place in memory. If you load a 
program without additional parameters, the control system 
treats it as a BASIC program and loads it at the starting 
address of the BASIC RAM, generally at 2049 (Commodore 64). 
Machine language programs can only be run, however, when 
they are loaded at the address for which they were written. 
This absolute loading can be accomplished by adding the 
secondary address 1: 

LOAD "MACH-PRG", 8,1 

But remember that when loading a program from within another 
program, BASIC attempts to RUN the program from the 
beginning. This leads to an endless loop when loading 
machine language programs, because the operating system 
thinks that a new BASIC program has been chained: 

100 LOAD "MACH-PRG",8,1 

Here we can make use of the fact that the variables are 
preserved when chaining. If we program the following, we 
have reached our goal: 

100 IF A=0 THEN A=l : LOAD "MACH-PRG" , 8 , 1 
110 ... 

When the program is started with RUN , A has the value zero 
and the assignment after the THEN is executed, A contains 
the value 1 and the machine language program is then LOADed. 
When the program begins again after LOADing the program 
MACH-PRG, A has the value 1 so the next line is executed. 

The procedure is similar if you have several machine 
language programs to load. 

100 IF A=0 THEN A=l : LOAD "PROG 1",8,1 
110 IF A=l THEN A=2 : LOAD "PROG 2", 8,1 
120 IF A=2 THEN A=3 : LOAD "PROG 3", 8,1 
130 .... 

The first time through, PROG 1 will be loaded, the next 
time, PROG 2, and so on. Once all the programs are loaded, 
execution continues with line 130. 
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4.5 Merge - Appending BASIC Programs 

Certainly you have thought about the possibility of 
combining two separate BASIC programs into one. Without 
further details this is not possible, because loading the 
second program would overwrite the first. With the knowledge 
of how BASIC programs are stored in memory and on the 
diskette, you can develop a simple procedure to accomplish 
this task. 

BASIC programs are stored in memory as follows: 

NL NH pointer to the next program line, lo hi 
LL LH line number, lo hi 

XX YY ZZ tokenized BASIC statements 

00 end-of-line marker 

At the end of the program are two additional zero bytes: 
00 00 a total of 3 zero bytes 

Programs are also saved in this format. Where the program 
starts and ends lies in two pointers in page zero: 

PRINT PEEK(43) + 256 * PEEK(44) 

gives the start of BASIC, 2049 for the Commodore 64, 
PRINT PEEK(45) + 256 * PEEK(46) 

points to the byte behind the three zero bytes. 

Because a program is always loaded at the start of BASIC, 
contained in the pointer at 43/44, one can cause a second 
program to load at the end of the first. In practice, we 
must proceed as follows: 

First we load the first program into memory. 

LOAD "PROGRAM 1",8 
Now get the value of the ending address of the program. 

A = PEEK(45) + 256 * PEEK(46) 

This value is decremented by two so that the two zero bytes 
at the end of the program are known. 

A = A - 2 

Now, note the original value of the start of BASIC. 

PRINT PEEK(43), PEEK(44) 
Next, set the start of BASIC to this value. 
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POKE, A AND 255 : POKE 44, A / 256 

Now, LOAD the second program. 

LOAD "PROGRAM 2", 8 

If you set the start of BASIC back to the original value, 1 
and 8 for the Commodore 64 (as shown above with the PRINT 
commands) , you have the complete program in memory and can 
view it with LIST or save it with SAVE. 

POKE 43,1 : POKE 44,8 

The following should be noted when using this method: 

The appended program may contain only line numbers that are 
greater than the largest line number of the first program. 
Otherwise these line numbers can never be accessed with GOTO 
or GOSUB and the proper program order cannot be guaranteed. 

This procedure is especially well suited for constructing a 
subroutine library for often used routines, so they need not 
be typed in each time. It will work out best if you reserve 
specific line numbers for the subroutines, such as 20000- 
25000, 25000-30000, and so on. If you want to merge several 
programs in this manner, you must first load the program 
with smallest line numbers, and then the program with the 
next highest numbers, etc. 
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4.6 Disk Monitor for the Commodore 64 and VIC 20 

In this section we present a very useful tool for working 
with your disk drive, allowing you to load, display, modify, 
and save desired blocks on the diskette. 

For reasons of speed, the program is written entirely in 
machine language. The following commands are supported: 

* Read a block from the disk 

* Write a block to the disk 

* Display a block on the screen 

* Edit a block on the screen 

* Send disk commands 

* Display disk error messages 

* Return to BASIC 

The program announces its execution (automatically by the 
BASIC load program) with 

DISK-MONITOR VI. 

> 

and waits for your input. If you enter , the error 
message from the disk will be displayed, for example 

00, ok, 00, 00 

If you want to send a command to the disk, enter an '@' 

followed by the command. 

You can initialize a diskette with 

>8I 

You can send complete disk commands in this manner, that you 
would otherwise send with 

OPEN 15,8,15 
PRINT# 15, "command" 
CLOSE 15 

For example, you can erase files, format disks, and so on. 

The most important function of the disk monitor is the 
direct access of any block on the diskette. For this, you 
use the commands R and W. R stands for READ and reads a 
desired block, W stands for WRITE and writes a block to the 
disk. You need only specify the track and sector you want to 
read. These must be given in hexadecimal, exactly as the 
output is given on the screen. If, for example, you want to 
read track 18, sector 1 (the first directory block), enter 
the following command: 

>R 12 01 
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Each input must be given as a two-digit hex number, 
separated from each other with a blank. 

In order to display the block, use the command M. we receive 
the following output: 

DISK-MONITOR VI. 
>M 





00 


1 9 
± z 


ut 


o z 


i ± 


U J. 


Al 
*i 1 


D Z 


41 
tx 




> 


■08 


46 


49 


4B 


20 


41 


49 


44 


2E 


FIX AID. 




i n 




->/ 




AU 


an 
AU 


uu 


UU 


AA 
UU 


SRC ... 


> 


s 18 


00 


00 


00 


00 


00 


00 


15 


00 




> 


20 


00 


00 


82 


13 


00 


48 


50 


4C 




> 


:28 


4F 


54 


2E 


53 


52 


43 


AO 


AO 


OT.SRC 


> 


:30 


AO 


AO 


AO 


AO 


AO 


00 


00 


00 




> 


:38 


00 


00 


00 


00 


00 


00 


05 


00 




> 


40 


00 


00 


82 


13 


03 


56 


50 


4C 


VPL 


> 


:48 


4F 


54 


2E 


53 


52 


43 


AO 


AO 


OT.SRC 


> 


:50 


AO 


AO 


AO 


AO 


AO 


00 


00 


00 




> 


:58 


00 


00 


00 


00 


00 


00 


09 


00 




> 


60 


00 


00 


82 


13 


09 


4D 


45 


4D 




> 


:68 


2E 


53 


52 


43 


AO 


AO 


AO 


AO 


• SRC 


> 


:70 


AO 


AO 


AO 


AO 


AO 


00 


00 


00 




> 


:78 


00 


00 


00 


00 


00 


00 


06 


00 




> 


[80 


00 


00 


82 


13 


08 


4D 


45 


4D 




> 


:88 
etc 


2E 


4F 


42 


4A 


AO 


AO 


AO 


AO 


.OBJ 



Let's take a closer look at the output. The first hex number 
after the colon gives the address of the following 8 bytes 
in the block, 00 indicates the first byte in the block (the 
numbering goes from 00 to FF (0-255)). 8 bytes follow the 
address (4 on the VIC 20). In the right half are the 
corresponding ASCII characters. If the code is not printable 
($00 to $1F and $80 to $9F), a period is printed. When you 
give the command M, as above, the entire block is displayed. 
Because the block does not fit on the screen completely, it 
is possible to display only part of it. You can give an 
address range that you would like to display. If you only 
want to see the first half, enter: 

>M 00 7F 

The second half with: 
>M 80 FF 

With the VIC 20, you can view quarters of the block. If you 
now wish to change some data, you simply move the cursor to 
the corresponding place, overwrite the appropriate byte, and 
press RETURN. The new value is now stored and the right half 
is updated with the proper ASCII character. 

To write the modified block back to the diskette, you use 
the command W. Here also you must give the track and sector 
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numbers in hexadecimal. 
>W 12 01 

writes the block back to track 18, sector 1, from where we 
had read the block previously. 

If you want to get back to BASIC, enter X and the computer 
will respond with READY.. If you then want to use the disk 
monitor again, you need not load it again. Just type SYS 
49152 for the C64 or SYS 6690 for the VIC 20. 

A warning: 

Be sure to make a copy of any diskette that you work with in 
this way. Should you make an error when editing or writing a 
block, you can destroy important information on the disk so 
that it can no longer be used in the normal manner. You 
should make it a rule to only work with a copy. 

Here you find an assembler listing of the program. After 
this are the BASIC loader programs for the Commodore 64 and 
VIC 20. 



disk monitor vie 20 / cbm 64 



190: 
200: 



C000 

cooo 



PROMPT 
NCMDS 



EOU " 
EQU 6 



; NUMBER OF 
COMMANDS 



210: 
220: 
230: 
240: 
250: 
260: 
270: 
280: 
290: 
300: 
310: 
320: 
330: 
340: 
350: 
360: 
370: 
380: 
390: 
400: 
410: 



COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
COOO 
0200 



QUOTE 
OUOTFLG 



CLOSE 

SETPAR 

SETNAM 

CHKIN 

CKOUT 

CLRCH 

CR 



SECTALK 

IEEEIN 

UNTALK 

LISTEN 

SECLIST 

IEEEOUT 

UNLIST 

WRITE 

OPEN 



INPUT 
TALK 



EOU $22 
EOU $D4 
ORG $200 



EOU $FFCF 

EOU $FFB4 

EOU $FF96 

EOU $FFA5 

EOU $FFAB 

EOU $FFB1 

EOU SFF93 

EOU $FFA8 

EOU $FFAE 

EOU $FFD2 

EOU $FFC0 

EQU $FFC3 

EOU $FFBA 

EQU $FFBD 

EOU $FFC6 

EOU $FFC9 

EOU $FFCC 

EOU 13 



; BASIC INPUT 
BUFFER 



420: 
430: 
440: 



0201 
0202 
0203 



SAVX 
WRAP 
BAD 



BYT 
BYT 
BYT 
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4 50 • 










PROM 
r nun 


BYT 




460 : 


0205 








TO 


BYT 


o 


470: 


0205 










EOU 


$90 


480 : 


0205 








QA 
on 






















490: 


0205 








FA 


EOU 


SRA •nEVTPF. ft 

V OCi f LSD V X v#M |r 


500 : 


0205 








FNADR 


EOU 


SRR • PTT PNAMP AnR 


510: 


0205 








FNLEN 


EOU 


SR7 *TRN OP 
















FILENAME 


520: 


0205 








TMPC 


EOU 


$97 


610: 


COOO 








COUNT 


EOU 


8 ;# OF BYTES PER LINE 


620: 


G000 








READY 


EOU 


SE37B »SE467 FOR VIC 


630 : 


COOO 


A2 


00 




INIT 


LDX 


#0 


640: 


C002 


BD 


85 


C2 




LDA 


MPQQAfiP Y 

nDQO flu Ei f A 


650 : 


COO 5 


20 


D2 


FF 




JSR 


WRITE 


660: 


C008 


E8 








I NX 




670 : 


C009 


EO 


12 






CPX 


£ a q r nMP— m p <? c a ri p 


680: 


CO 0B 


DO 


F5 






BNE 


M^fiOIIT 


690 : 


C00D 


A2 


OD 




START 


LDX 


SCR 


700: 


COOF 


A9 


3E 






LDA 


IPROMPT 


710: 


C011 


20 


EB 


CO 




JSR 


WRTWHR 


710: 


CO 14 


A9 


00 






LDA 


#0 


710 : 


C016 


8D 


01 


02 




STA 


WRAP 


720: 


C019 


20 


33 


CI 


ST1 


JSR 


RHOC -RFAD INPUT LINE 


730 : 


C01C 


C9 


3E 






CMP 


§ PROMPT 


740: 


C01E 


FO 


F9 






BEO 


ST1 


750: 


CO 20 


C9 


20 






CMP 


* w ii . pp An OVER BLANK 


760: 


C022 


FO 


F5 






BEO 


ST1 


770 : 


C024 


A2 


05 




SO 


LDX 


ttNrMnc:— l • comparp wtth 
















COMMAND TABLE 


780: 


C026 


DD 


6A 


CO 


SI 


CMP 


V* 1 1 LS O f A 


790 : 


CO 29 


DO 


OC 






BNE 


S2 


800: 


C02B 


8E 


00 


02 




STX 


SAVX ;# OF CMDS IN TABLE 


840: 


C02B 


BD 


70 


CO 




LDA 


ADRH ,X 


850: 


C031 


48 








PHA 


;JUMP ADDR TO 
















STACK 


860 : 


C032 


BD 


76 


CO 




LDA 


ADRL,X 


870 : 


C035 


48 








PHA 




880: 


C036 


60 








RTS 




890 : 


C037 


CA 






S2 


DEX 




900: 


C038 


10 


EC 






BPL 


SI ;LOOP OF ALL CMDS 


910 : 


CO 3 A 


4C 


OD 


CO 




JMP 


START 












; SUBROUTINE 


TO DISPLAY 












; THE 


DISK CONTENTS 


960 : 


CO 3D 


85 


97 




DM 


STA 


TMPC 


970 : 


C03F 


20 


62 


CO 


DM1 


JSR 


SPACE 


980: 


C042 


B9 


EO 


C2 




LDA 


BUFFER, Y ;GET BYTE FROM 
















BUFFER 


990: 


C045 


20 


DC 


CO 




JSR 


WROB 


1000: 


C048 


C8 








INY 




1000: 


CO 49 


DO 


03 






BNE 


DM2 


1000: 


C04B 


EE 


01 


02 




INC 


WRAP 


1010: 


C04E 


C6 


97 




DM2 


DEC 


TMPC 


1020: 


C050 


DO 


ED 






BNE 


DM1 
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1030: C052 60 RTS 

; READ BYTES AND WRITE TO MEMORY 



1060: 


C053 


20 


FE 


CO 


BYT 


JSR 


RDOB 




1070: 


C056 


90 


03 






BCC 


BY3 


; BLANK? 


1080: 


C058 


99 


BO 


C2 




STA 


uur Ton; I 


,nt\XXCi DHL ±r 


















BUFFER 


1090: 


C05B 


C8 






BY3 


I NY 






1100: 


C05C 


C6 


97 






DEC 


TMPC 




1110: 


C05E 


60 








RTS 






1120: 


C05F 


20 


62 


CO 


SPAC2 


JSR 


SPACE 




1130: 


C062 


A9 


20 




SPACE 


LDA 


#" " 




1140: 


C064 


2C 








BYT 


$2C 




1150: 


C065 


A9 


OD 




CRLF 


LDA 


#CR 




1160: 


C067 


4C 


D2 


FF 




JMP 


WRITE 














; COMMAND AND 


ADDRESS TABLE 


1190: 


C06A 


3A 






CMDS 


ASC 


':' ; EDIT 


MEM CONTENTS 


1200: 


C06B 


57 








ASC 


•W" ;WRITE BLOCK 


1210: 


C06C 


52 








ASC 


' R' ; READ 


BLOCK 


1220: 


C06D 


4D 








ASC 


' M' ;DISLPAY BYTES 


1230: 


C06E 


40 








ASC 


1 @' ;DISK 


COMMAND 


1240: 


C06F 


58 








ASC 


'X' ;EXIT 




1250: 


C070 


CO 






ADRH 


EOU 


>ALTM— 1 




1260: 


C071 


CI 








EOU 


>DIRECT-1 




1270: 


C072 


CI 








EOU 


>DIRECT-1 




1280: 


C073 


CO 








EOU 


>DSPLYM-1 




1290: 


C074 


CI 








EOU 


>DISK-1 




1300: 


C075 


E3 








EOU 


> READY- 1 




1310: 


C076 


CO 






ADRL 


EQU 


<ALTM T 1 




1320: 


C077 


90 








EOU 


<DIRECT-1 




1330: 


C078 


90 








EOU 


<DIRECT-1 




1340: 


C079 


7B 








EOU 


<DSPLYM-1 




1350: 


CO 7 A 


3E 








EOU 


<DISK-1 




1360: 


C07B 


7A 








EOU 


<READY-1 




1370: 


C07C 


AO 


00 




DSPLYM 


LDY 


#0 




1380: 


C07E 


8C 


03 


02 




STY 


FROM 




1370: 


C081 


88 








DEY 






1370: 


C082 


8C 


04 


02 




STY 


TO 




1370: 


C085 


20 


CF 


FF 




JSR 


INPUT 




1370: 


C088 


C9 


OD 






CMP 


#CR 




1370: 


CO 8 A 


FO 


17 






BEQ 


DSP1 




1380: 


C08C 


20 


FE 


CO 




JSR 


RDOB 


; READ START 


















ADDRESS 


1390: 


C08F 


90 


12 






BCC 


DSP1 




1400: 


C091 


8D 


03 


02 




STA 


FROM 




1410: 


C094 


20 


CF 


FF 




JSR 


INPUT 




1410: 


C097 


C9 


OD 






CMP 


#CR 




1410: 


C099 


FO 


08 






BEQ 


DSP1 




1420: 


C09B 


20 


FE 


CO 




JSR 


RDOB 


; READ END ADR 


1430: 


C09E 


90 


03 






BCC 


DSP1 




1440: 


CO AO 


8D 


04 


02 




STA 


TO 




1450: 


C0A3 


AC 


03 


02 


DSP1 


LDY 


TO 




1460: 


C0A6 


20 


C6 


C2 


DSP2 


JSR 


TESTEND 




1470: 


C0A9 


20 


D6 


C2 




JSR 


ALTRIT 




1470: 


C0AC 


98 








TYA 
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1480 


: C0AD 


20 


DC 


CO 


JSR 


WROB ; ADDRESS 


1490 


: CO BO 


20 


62 


CO 


JSR 


SPACE :OMIT FOR VIC 


1500 


: C0B3 


A9 


08 




LDA 


#COUNT ;8 OR 4 


1510 


: C0B5 


20 


3D 


CO 


JSR 


DM : DISPLAY 


1520 


: C0B8 


20 


97 


C2 


JSR 


ASCDMP ; ASCII DUMP 


1530 


: COBB 


4C 


A6 


CO 


JMP 


DSP 2 ;ABS JUMP 


1550 


: COBE 


4C 


OD 


CO 


BE0S1 JMP 


START 












; EDIT MEMORY; 


READ ADDRESS AND DATA 


1570 


: C0C1 


20 


FE 


CO 


ALTM JSR 


RDOB ; READ ADDR 


1580 


: C0C4 


90 


F8 




BCC 


BEOS1 


1590 


: C0C6 


A8 






TAY 




1600 


: C0C7 


A9 


08 




LDA 


#COUNT ;# OF BYTES 


1610 


: C0C9 


85 


97 




STA 


TMPC 


1610 


: COCB 


20 


33 


CI 


JSR 


RDOC ;OMIT FOR VIC 


1620: COCE 


20 


33 


CI 


A5 JSR 


RDOC 


1620 


i C0D1 


20 


53 


CO 


JSR 


BYT 


1630 


: C0D4 


DO 


F8 




BNE 


A5 


1640 


: C0D6 


20 


97 


C2 


JSR 


ASCDMP 


1650 


: COD? 


4C 


OD 


CO 


JMP 


START 












1 

; WRITE BYTE AS HEX NUMBER 


1710 


: CO DC 


48 






WROB PHA 




1720 


: CODD 


4A 






LSR 


A 


1730s CODE 


4A 






LSR 


A 


1740 


: CODF 


4A 






LSR 


A 


1750: C0E0 


4A 






LSR 


A 


1760 


: C0E1 


20 


F4 


CO 


JSR 


ASCII ; CONVERT TO 














ASCII 


1770: C0E4 


AA 






TAX 




1780 


; C0E5 


68 






PLA 




1790: C0E6 


29 


OF 




AND 


#$0F 


1800: .C0E8 


20 


F4 


CO 


JSR 


ASCII 












; WRITE CHARACTERS IN X AND A 


1820 


COEB 


48 






WRTWHR PHA 




1830 


CO EC 


8A 






TXA 




1840 


COED 


20 


D2 


FF 


JSR 


WRITE 


1850 


COFO 


68 






PLA 




1860 


C0F1 


4C 


D2 


FF 


JMP 


WRITE . 


1870 


C0F4 


18 






ASCII CLC 




1880 


C0F5 


69 


F6 




ADC 


#$F6 


1890 


C0F7 


90 


02 




BCC 


ASCI 


1900 


C0F9 


69 


06 




ADC 


#6 


1910 


COFB 


69 


3A 




ASCI ADC 


#$3A 


1920 


COFD 


60 






RTS 














; READ HEX BYTE AND PUT IN A 


1950 


COFE 


A9 


00 




RDOB LDA 


#0 


1960 


C100 


8D 


02 


02 


STA 


BAD ; READ NEXT CHAR 


1970 


C103 


20 


33 


CI 


JSR 


RDOC 


1980 


C106 


C9 


20 




RD0B1 CMP 


#' 


1990 


C108 


DO 


09 




BNE 


RDOB 2 


2000 


C10A 


20 


33 


CI 


JSR 


RDOC :READ NEXT CHAR 


2010- 


C10D 


C9 


20 




CMP 


#' 


2020 


C10F 


DO 


OF 




BNE 


RDOB3 


2030: 


cm 


18 






CLC 


;CY=0 


2040 


C112 


60 






RTS 
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2050: 


C113 


20 


28 


CI 


RD0B2 


JSR 


HEXIT 




2060 : 


C116 


OA 








ASL 


A 




2070; 


C117 


OA 








ASL 


A 




2080 ! 


C118 


OA 








ASL 


A 




2090: 


C119 


OA 








ASL 


A 




2100 : 


C11A 


8D 


02 


02 




STA 


BAD 




2110: 


CUD 


20 


33 


CI 




JSR 


RDOC 




2120 


C120 


20 


28 


CI 


RD0B3 


JSR 


HEXIT 




2130: 


C123 


OD 


02 


02 




ORA 


BAD 




2140 


C126 


38 








SEC 


;CY= 


1 


2150: 


C127 


60 








RTS 






2160 


C128 


C9 


3A 




HEXIT 


CMP 


#$3A 




2170: 


C12A 


08 








PHP 






2180 


C12B 


29 


OF 






AND 


#$0F 




2190: 


C12D 


28 








PLP 






2200 


C12E 


90 


02 






BCC 


HEX09 


;0-9 


2210: 


C130 


69 


08 






ADC 


#8 


;PLUS 9 (C-l) 


2220 


C132 


60 






HEX09 


RTS 






2230 


C133 


20 


CF 


FF 


RDOC 


JSR 


INPUT 


; READ CHAR 


2240 


C136 


C9 


OD 






CMP 


#CR 


jCR? 


2250 


C138 


DO 


F8 






BNE 


HEX09 


;NO, RETURN 


2260 


C13A 


68 








PLA 






2270: C13B 


68 








PLA 






2280: C13C 


4C 


OD 


CO 


a 


JMP 


START 














• 

'; DOS 


SUPPORT 






2320 


C13F 


20 


CF 


FF 


DISK 


JSR 


INPUT 




2330 


: C142 


C9 


OD 






CMP 


#CR 




2340 


C144 


DO 


27 






BNE 


DSKCMD 


;DISK COMMAND 


2350 


• C146 


A9 


00 






LDA 


#0 




2350 


CI 48 


85 


90 






STA 


STATUS 


; ERASE STATUS 


2360 


: C14A 


20 


65 


CO 




JSR 


CRLF 




2370 


. C14D 


A9 


08 






LDA 


#8 




2380 


: C14F 


85 


BA 






STA 


FA 


;DISK ADDR 


2390 


: C151 


20 


B4 


FF 




JSR 


TALK 




2400 


: C154 


A9 


6F 






LDA 


#15+$60 


;SA 15 


2410 


• C156 


85 


B9 






STA 


SA 




2420 


: C158 


20 


96 


FF 




JSR 


SECTALK 


;SEC ADDR 


2430 


: C15B 


20 


A5 


FF 


ERRIN 


JSR 


IEBEIN 




2440 


: C15E 


24 


90 






BIT 


STATUS 




2440 


: C160 


70 


05 






BVS 


ENDDSK 




2450 


: C162 


20 


D2 


FF 




JSR 


WRITE 




2460 


: C165 


DO 


F4 






BNE 


ERRIN 




2470 


: C167 


20 


AB 


FF 


ENDDSK 


JSR 


UNTALK 




2480 


: C16A 


4C 


OD 


CO 




JMP 


START 




2490 


: C16D 


C9 


24 




DSKCMD 


CMP 


#'$ 




2500 


: C16F 


FO 


ID 






BEO 


ERR1 


.•CATALOG. 


2510 


: C171 


48 








PHA 






2510 


: C172 


A9 


08 






LDA 


#8 




2520 


: C174 


85 


BA 






STA. 


FA 




2530 


: C176 


20 


Bl 


FF 




JSR 


LISTEN 




2540 


: C179 


A9 


6F 






LDA 


#15+$60 




2550 


: C17B 


85 


B9 






STA 


SA 




2560 


: C17D 


20 


93 


FF 




JSR 


SECLIST 
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2560: 


C180 


68 








PLA 




2570: 


C181 


20 


A8 


FF 


CMDOUT 


JSR 




2580: 


C184 


20 


CF 


FF 




JSR 


INPUT 


2590 : 


C187 


C9 


OD 






CMP 


#CR 


2600: 


C189 


DO 


F6 






BNE 


CMDOUT 


2610: 


C18B 


20 


AE 


FF 




JSR 


UNLIST 


2630: 


C18E 


4C 


OD 


CO 


ERR1 


JMP 


START 


2640: 


C191 


20 


33 


CI 


DIRECT 


JSR 


RDOC 


2640: 


C194 


20 


FE 


CO 




JSR 


RDOB 


2650: 


C197 


90 


F5 






BCC 


ERR1 


2660: 


C199 


8D 


27 


C2 




STA 


TRACK 


2670: 


C19C 


20 


33 


CI 




JSR 


RDOC 


2670: 


C19F 


20 


FE 


CO 




JSR 


RDOB 


2680 : 


C1A2 


90 


EA 






BCC 


ERR1 


2690: 


C1A4 


8D 


2A 


C2 




STA 


SECTOR 


2690: 


C1A7 


20 


49 


C2 




JSR 


OPNDIR 


2690: 


C1AA 


AD 


00 


02 




LDA 


SAVX 


2690: 


C1AD 


C9 


01 






CMP 


#1 


2690: 


C1AF 


FO 


IE 






BEQ 


DIRWRITE 


2700: 


C1B1 


A9 


31 






LDA 


# ' 1 


2710: 


G1B3 


20 


ED 


CI 




JSR 


SENDCMD 


2720: 


C1B6 


A2 


OD 






LDX 


#13 


2730: 


C1B8 


20 


C6 


FF 




JSR 


CHKIN 


2740: 


C1BB 


A2 


00 






LDX 


#0 


2750 : 


C1BD 


20 


CF 


FF 


DIRIN 


JSR 


INPUT 


2760: 


C1C0 


9D 


EO 


C2 




STA 


BUFFER, X 


2770: 


C1C3 


E8 








I NX 




2770: 


C1C4 


DO 


F7 






BNE 


DIRIN 


2780: 


C1C6 


20 


CC 


FF 




JSR 


CLRCH 


2790: 


C1C9 


20 


6E 


C2 


ENDDIR 


JSR 


CLSDIR 


2790: 


C1CC 


4C 


OD 


CO 




JMP 


START 


2800: 


C1CF 


20 


2C 


C2 


DIRWRITE 


JSR 


BUFPNT 


2810: 


C1D2 


A2 


OD 






LDX 


#13 


2820: 


C1D4 


20 


C9 


FF 




JSR 


' CKOUT 


2830: 


C1D7 


A2 


00 






LDX 


#0 


2840: 


C1D9 


BD 


EO 


C2 


DIROUT 


LDA 


BUFFER, X 


2850: 


CI DC 


20 


D2 


FF 




JSR 


WRITE 


2860: 


C1DF 


E8 








INX 




2860: 


C1E0 


DO 


F7 






BNE 


DIROUT 


2870: 


C1E2 


20 


CC 


FF 




JSR 


CLRCH 


2880: 


C1E5 


A9 


32 






LDA 


#' 2 


2890: 


C1E7 


20 


ED 


CI 




JSR 


SENDCMD 
















WRI' 


2900: 


C1EA 


4C 


C9 


CI 




JMP 


ENDDIR 


2910: 


CI ED 


8D 


20 


C2 


SENDCMD 


STA 


CMDSTR+1 


2910: 


C1F0 


A2 


OF 






LDX 


#15 


2920: 


C1F2 


AD 


27 


C2 




LDA 


TRACK 


2920: 


C1F5 


20 


78 


C2 




JSR 


NUMBASC 


2920: 


C1F8 


8E 


27 


C2 




STX 


TRACK 


2920: 


C1FB 


8D 


28 


C2 




STA 


TRACK+1 


2930: 


C1FE 


AD 


2A 


C2 




LDA 


SECTOR 


2930: 


C201 


20 


78 


C2 




JSR 


NUMBASC 


2930: 


C204 


8E 


2A 


C2 




STX 


SECTOR 



; READ TRACK 



; SEND BLOCK 
READ COMMAND 



;SET BUFFER 
POINTER 



; SEND BLOCK 
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2930: 


C207 


8D 


2B 


C2 




2940; 


C20A 


A2 


OF 






2940s 


C20C 


20 


C9 


FF 




2950: 


C20F 


A2 


00 






2960: 


C211 


BD 


IF 


CI 


LUPIiJUU J. 


2970: 


C214 


20 


D2 


FF 




2980: 


C217 


E8 








2980: C218 


E0 


0D 






2990 : 




DO 


F5 






3000 : 


C2 1C 


4C 


CC 


FF 






PO 1 1? 
\*C IE 


55 


31 


3A 








31 


33 


20 










20 






JUiU 


CO 01 


00 


00 


20 


TRACK 


jUJU ! 




00 


00 






1 n a n 


poor 


A2 


OF 




RI1 PT5MT 
BUT JriN A 


jUDUi 


r*o op 


20 


C9 


FF 




JUOU 


pm 


A2 


00 






3070: 




BD 


41 


C2 


PNTOF1T 


3080 




20 


D2 


FF 




3090 : 


C239 


E8 








3090 


C23A 


E0 


08 






3100, 


C23C 


DO 


F5 






3110 


C23E 


4C 


CC 


FF 




3120* 


C241 


42 


2D 


50 


BUFTXT 






20 


3]_ 


33 








20 


30 






3130 


C249 


A9 


OF 






3130 


C2 4B 


A8 








3140 


C24C 


A2 


08 






3150 


C24E 


20 


BA 


FF 




3160 


C251 


A9 


00 






3170 


C253 


20 


BD 


FF 




3180 


C256 


20 


CO 


FF 




3190 


C259 


A9 


0D 






3190 


C25B 


A8 








3200 


C25C 


A2 


08 






3210 


C25E 


20 


BA 


FF 




3220 


C261 


A9 


01 






3230 


C263 


A2 


6D 






3240 


C265 


AO 


C2 






3250 


C267 


20 


BD 


FF 




3260 


C26A 


4C 


CO 


FF 




3270 


: C26D 


23 






DADR 


3280 


C26E 


A9 


0D 




CLSDIR 


3290 


: C270 


20 


C3 


FF 




3300 


C273 


A9 


OF 






3310 


: C275 


4C 


C3 


FF 




3230 


C278 


A2 


30 




NUMBASC 


3330 


: C27A 


38 








3340 


C27B 


E9 


OA 




NUMB1 


3350 


: C27D 


90 


03 






3360 


: C27F 


E8 








3370 


: C280 


B0 


F9 






3380 


C282 


69 


3A 




NUMB2 



STA SECTOR+1 

LDX #15 

JSR CKOUT 

LDX #0 

LDA CMDSTR,X 

JSR WRITE 

INX 

CPX # BUFPNT— CMDSTR 

BNE COMDOOT 

JMP CLRCH 

ASC 'Ul:13 * 



BYT 0,0, $20 

BYT 0,0 

LDX #15 

JSR CKOUT 

LDX #0 

LDA BUFTXT, X 

JSR WRITE 
INX 

CPX #OPNDIR-BUFTXT 

BNE PNTOUT 

JMP CLRCH 

ASC 'B-P 13 0' 



LDA #15 
TAY 

LDX #8 

JSR SETPAR 

LDA #0 

JSR SETNAM 

JSR OPEN 

LDA #13 
TAY 

LDX #8 

JSR SETPAR 

LDA #1 

LDX #<DADR 

LDY #>DADR 

JSR SETNAM 

JMP OPEN 

•BYT ' # 

LDA #13 

JSR CLOSE 

LDA #15 

JMP CLOSE 

LDX #'0 ; HEX # TO AS' 

SEC 

SBC #10 

BCC NUMB 2 
INX 

BCS NUMB1 

ADC #S3B ;'9' + 1 
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3390 : 


C284 


60 








RTS 






3400 : 


C285 


0D 










CR 




3410: 


C286 


44 


49 


53 




ASC 


'DISK-MONITOR VI. 0' 






4B 


2D 


4D 














4F 


4E 


49 














54 


4F 


52 














20 


56 


31 














2E 


30 












3430 : 


C297 


98 






ASCDMP 


TYA 






3440: 


C298 


38 








SEC 






3440 : 


C299 


E9 


08 






SBC 


ftLOUNT 




3440: 


C29B 


A8 








TAY 






3450: 


C29C 


20 


62 


CO 




JSR 


SPACE 




3460: 


C29F 


A9 


12 






LDA 


ft ±o 


; RVb ON 


3470 : 


C2A1 


20 


D2 


FF 




JSR 


T.TT) T rrirp 

WK1 lb 




3480: 


C2A4 


A2 


08 






LDX 


# COUNT 




3490 : 


C2A6 


B9 


EO 


C2 


AC 2 


LDA 


BUFFER , Y 




3500: 


C2A9 


29 


7F 






AND 


#$7F 




3510 : 


C2AB 


C9 


20 






CMP 


ft 




3520: 


C2AD 


BO 


04 






BCS 


AC J 




3530 : 


C2AF 


A9 


2E 






LDA 


ji i 




3540: 


C2B1 


DO 


03 






BNE 


AC 4 




3550 : 


C2B3 


B9 


EO 


C2 


AC 3 


LDA 


BUFFER f Y 




3560: 


C2B6 


20 


D2 


FF 


AC 4 


JSR 






3570 : 


C2B9 


A9 


00 






LDA 


ftU 




3570: 


C2BB 


85 


D4 






STA 


\) UU 1 r Lb 




3580 : 


C3BD 


C8 








INY 






3580: 


C2BE 


CA 








DEX 






3590 : 


C2BF 


DO 


E5 






BNE 


AC 2 




3600: 


C2C1 


A9 


92 






LDA 




jkvo ur f 


3610 : 


C2C3 


4C 


D2 


FF 




JMP 


WKX X Ei 




3620: 


C2C6 


AD 


01 


02 


TESTEND 


LDA 


WKnr 




3620: 


C2C9 


DO 


06 






BNE 


ENDEND 




3630: 


C2CB 


CC 


04 


02 




CPY 


TO 




3640 : 


C2CE 


BO 


01 






BCS 


ENDEND 




3650: 


C2D0 


60 








RTS 






3660: 


C2D1 


68 






ENDEND 


PLA 






3660: 


C2D2 


68 








PLA 






3660: 


C2D3 


4C 


OD 


CO 




JMP 


START 




3670: 


C2D6 


20 


65 


CO 


ALTRIT 


JSR 


CRLF 




3680: 


C2D9 


A9 


3A 






LDA 


# 1 : 




3690: 


C2DB 


A2 


3E 






LDX 


#PROMPT 




3700: 


C2DD 


4C 


EB 


CO 




JMP 


WRTWHP 




3730: 


C2E0 








BUFFER 


DST 


256 ;256 


BYTE BUFFER 



FOR BLOCK 



Here is the BASIC program for entering the disk monitor if 
you do not have an assembler. 
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DISK-MONITOR, C64 VERSION 



100 


FOR I = 


49152 


110 


READ 


X ! 


POKE 


120 


DATA 


162 


, o, 


130 


DATA 


245 


,162, 


140 


DATA 


2 


, 32, 


150 


DATA 


162 


, 5, 


160 


DATA 


192 


, 72, 


170 


DATA 


192 


,133, 


180 


DATA 


200 


,208, 


190 


DATA 


254 


,192, 


200 


DATA 


98 


,192, 


210 


DATA 


82 


, 77, 


220 


DATA 


144 


,123, 


230 


DATA 


2 


, 32, 


240 


DATA 


18,141, 


250 


DATA 


254 


,192, 


260 


DATA 


194 


, 32, 


270 


DATA 


8 


, 32, 


280 


DATA 


192 


, 32, 


290 


DATA 


51 


,193, 


300 


DATA 


194 


, 76, 


310 


DATA 


170 


,104, 


320 


DATA 


104 


, 76, 


330 


DATA 


58 


, 96, 


340 


DATA 


208 


, 9, 


350 


DATA 


40 


,193, 


360 


DATA 


32 


, 40, 


370 


DATA 


15 


, 40, 


380 


DATA 


208 


,248, 


390 


DATA 


208 


, 39, 


400 


DATA 


186 


, 32, 


410 


DATA 


165 


,255, 


420 


DATA 


171 


,255, 


430 


DATA 


133 


,186, 


440 


DATA 


104 


, 32, 


450 


DATA 


174 


,255, 


460 


DATA 


245 


,141, 


470 


DATA 


141 


, 42, 


480 


DATA 


30 


,169, 


490 


DATA 





, 32, 


500 


DATA 


255 


, 32, 


510 


DATA 


32 


,201, 


520 


DATA 


208 


,247, 


530 


DATA 


193 


,141, 


540 


DATA 


142 


, 39, 


550 


DATA 


142 


, 42, 


560 


DATA 





,189, 


570 


DATA 


76 


,204, 


580 


DATA 





, 32, 


590 


DATA 


65 


,194, 


600 


DATA 


255 


, 66, 


610 


DATA 


162 


, 8, 



TO .49887 
: I,X : S=S+X 
189,133,194, 
13,169, 62, 
51,193,201, 
221,106,192, 
189,118,192, 
151, 32, 98, 
3,238, 1, 
144, 3,153, 
169, 32, 44, 
64, 88,192, 
62,122,160, 
207,255,201, 
3, 2, 32, 
144, 3,141, 
214,194,152, 
61,192, 32, 
254,192,144, 
32, 51,193, 
13,192, 72, 
41, 15, 32, 
210,255, 24, 
169, 0,141, 
32, 51,193, 
10, 10, 10, 

193, 13, 2, 
144, 2,105, 
104,104, 76, 
169, 0,133, 
180,255,169, 

36,144,112, 
76, 13,192, 
32,177,255, 
168,255, 32, 
76, 13,192, 
39,194, 32, 

194, 32, 73, 
49, 32,237, 

207,255,157, 
110,194, 76, 
255,162, 0, 
32,204,255, 
32,194,162, 
194,141, 40, 
194,141, 43, 
31,194, 32, 
255, 85, 49, 
0, . 0,162, 
32,210,255, 
45, 80, 32, 
32,186,255, 



: NEXT 
32,210 
32,235 
62,240 
208, 12 
72, 96 
192,185 
2,198 
224,194 
169, 13 
193,193 
0,140 
13,240 
207,255 

4, 2 
32,220 

151,194 
248,168 
32, 83 
74, 74 
244,192 
105,246 
2, 2 
201, 32 
10,141 
2, 56 
8, 96 
13,192 
144, 32 
111,133 

5, 32 
201, 36 
169,111 
207,255 

32, 51 

51,193 
194,173 
193,162 
224,194 

13,192 
189,224 
169, 50 

15,173 
194,173 
194,162 
210,255 

58, 49 

15, 32 
232,224 

49, 51 
169, 



255,232 
192,169 
249,201 
142, 
202, 16 
224,194 
151,208 
200,19.8 

76,210 
192,193 
3, 2 

23, 32 
201, 13 
172, 3 

192, 32 
76,166 

169, 8 
192,208 
74, 74 
72,138 
144, 2 
32, 51 
208, 15 
2, 2 
96,201 
32,207 
32,207. 
101,192 
185, 32 
210,255 
240, 29 
133,185 
201, 13 

193, 32 
32,254 

0, 2 
13, 32 
232,208 
32, 44 

194, 32 
32,237 
39,194 
42,194 
15, 32 

232,224 
51, 32 

201,255 
8,208 
32, 48 
32,189 



224, 18, 
0,141, 
32,240, 
2,189, 

236, 76, 
32,220, 

237, 96, 
151, 96, 
255, 58, 
227,192, 
136,140, 
254,192, 
240, 8, 

2, 32, 
98,192, 

192, 76, 
133,151, 
248, 32, 

32,244, 
32,210, 
105, 6, 
193,201, 
24, 96, 
32, 51, 
58, 8, 
255,201, 
255,201, 
169, 8, 
150,255, 
208,244, 
72,169, 
32,147, 
208,246, 
254,192, 
192,144, 
201, 1, 
198,255, 
247, 32, 
194,162, 
210,255, 

193, 76, 
32,120, 
32,120, 

201,255, 
13,208, 
48, 32, 
162, 0, 
245, 76, 
169, 15, 
255, 32, 
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j 

i 



620 DATA 255,169, 13,168,162, 8, 32,186,255,169, 1,162 
630 DATA 109,160,194, 32,189,255, 76,192,255, 35,169, 13 
640 DATA 32,195,255,169, 15, 76,195,255,162, 48, 56,233 
650 DATA 10,144, 3,232,176,249,105, 58, 96, 13, 68, 73 
660 DATA 83, 75, 45, 77, 79, 78, 73, 84, 79, 82, 32, 86 
670 DATA 49, 46, 48,152, 56,233, 8,168, 32, 98,192,169 
680 DATA 18, 32,210,255,162, 8,185,224,194, 41,127,201 
690 DATA 32,176, 4,169, 46,208, 3,185,224,194, 32,210 
700 DATA 255,169, 0,133,212,200,202,208,229,169,146, 76 
710 DATA 210,255,173, 1, 2,208, 6,204, 4, 2,176, 1 
720 DATA 96,104,104, 76, 13,192, 32,101,192,169, 58,162 
730 DATA 62, 76,235,192 

740 IF S <> 90444 THEN PRINT "ERROR IN DATA !!" : END 
750 SYS 49152 



DISK-MONITOR, VIC 20 VERSION 



In order to allow this program to be run on the VIC 20, it was 
split into two parts. Enter each program separately, saving the 
first under the name "DOS LOADER. 1" and second under "DOS 
LOADER. 2". To load the disk monitor, load the first program and 
start it with RUN. If all data are correct, the second program 
will automatically be loaded and the disk monitor started. 



100 POKE 55, 6690 AND 255 : POKE 56, 6690 / 256 : CLR 
105 FOR I =6690 TO 7056 : REM DOS LOADER. 1 
110 READ X s POKE I ,X : S=S+X : NEXT 

120 DATA 162, 0,189,164, 28, 32,210,255,232,224, 18,208 
130 DATA 245,162, 13,169, 62, 32, 7, 27,169, 0,141, 1 
140 DATA 2, 32, 79, 27,201, 62,240,249,201, 32,240,245 
150 DATA 162, 5,221,140, 26,208, 12,142, 0, 2,189,146 
160 DATA 26, 72,189,152, 26, 72, 96,202, 16,236, 76, 47 
170 DATA 26,133,151, 32,132, 26,185, 0, 29, 32,248, 26 
180 DATA 200,208, 3,238, 1, 2,198,151,208,237, 96, 32 
190 DATA 26, 27,144, 3,153, 0, 29,200,198,151, 96, 32 
200 DATA 132, 26,169, 32, 44,169, 13, 76,210,255, 58, 87 
210 DATA 82, 77, 64, 88, 26, 27, 27, 26, 27,228,223,175 
220 DATA 175,157, 90,102,160, 0,140, 3, 2,136,140, 4 
230 DATA 2, 3 2,207,255,201, 13,240, 23, 32, 26, 27,144 
240 DATA 18,141, 3, 2, 32,207,255,201, 13,240, 8, 32 
250 DATA 26, 27,144, 3,141, 4, 2,172, 3, 2, 32,229 
260 DATA 28, 32,245, 28,152, 32,248, 26,169, 4, 32, 95 
270 DATA 26, 32,182, 28, 76,200, 26, 76, 47, 26, 32, 26 
280 DATA 27,144,248,168,169, 4,133,151, 32, 79, 27, 32 
290 DATA 117, 26,208,248, 32,182, 28, 76, 47, 26, 72, 74 
300 DATA 74, 74, 74, 32, 16, 27,170,104, 41, 15, 32, 16 
310 DATA 27, 72,138, 32,210,255,104, 76,210,255, 24,105 
320 DATA 246,144, 2,105, 6,105, 58, 96,169, 0,141, 2 
330 DATA 2, 32, 79, 27,201, 32,208, 9, 32, 79, 27,201 
340 DATA 32,208, 15, 24, 96, 32, 68, 27, 10, 10, 10, 10 
350 DATA 141, 2, 2, 32, 79, 27, 32, 68, 27, 13, 2, 2 
360 DATA 56, 96,201, 58, 8, 41, 15, 40,144, 2,105, 8 
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370 DATA 96, 32 , 207 , 255 , 201 j 13,208,248,104,104, 76, 47 
380 DATA 26, 32,207,255,201, 13,208, 39,169, 0,133,144 
390 DATA 32,135, 26,169, 8,133,186, 32,180,255,169,111 
400 DATA 133,185, 32,150,255, 32,165,255, 36,144,112, 5 
410 DATA 32,210,255,208,244, 32,171,255, 76, 47, 26,201 
420 DATA 36,240, 29, 72,169, 8,133 

430 IP S <> 35614 THEN PRINT "ERROR IN DATA !!" : END 
440 LOAD "DOS LOADER. 2" ,8 



100 CLP : FOR I = 7057 TO 7422 : REM DOS LOADER. 2 
110 READ X : POKE I ,X : S=S+X : NEXT 

120 DATA 186, 32,177,255,169,111,133,185, 32,147,255,104 
130 DATA 32,168,255, 32,207,255,201, 13,208,246, 32,174 
140 DATA 255, 76, 47, 26, 76, 47, 26, 32, 79, 27, 32, 26 
150 DATA 27,144,245,141, 70, 28, 32, 79, 27, 32, 26, 27 
160 DATA 144,234,141, 73, 28, 32,104, 28,173, 0, 2,201 
170 DATA 1,240, 30,169, 49, 32, 12, 28,162, 13, 32,198 
180 DATA 255,162, 0, 32,207,255,157, 0, 29,232,208,247 
190 DATA 32,204,255, 32,141, 28, 76, 47, 26, 32, 75, 28 
200 DATA 162, 13, 32,201,255,162, 0,189, 0, 29, 32,210 
210 DATA 255,232,208,247, 32,204,255,169, 50, 32, 12, 28 
220 DATA 76,232, 27,141, 63, 28,162, 15,173, 70, 28, 32 
230 DATA 151, 28,142, 70, 28,141, 71, 28,173, 73, 28, 32 
240 DATA 151, 28,142, 73, 28,141, 74, 28,162, 15, 32,201 
250 DATA 255,162, 0,189, 62, 28, 32,210,255,232,224, 13 
260 DATA 208,245, 76,204,255, 85, 49, 58, 49, 51, 32, 48 
270 DATA 32, 0, 0, 32, 0, 0,162, 15, 32,201,255,162 
280 DATA 0,189, 96, 28, 32,210,255,232,224, 8,208,245 
290 DATA 76,204,255, 66, 45, 80, 32, 49, 51, 32, 48,169 
300 DATA 15,168,162, 8, 32,186,255,169, 0, 32,189,255 
310 DATA 32,192,255,169, 13,168,162, 8, 32,186,255,169 
320 DATA 1,162,140,160, 28, 32,189,255, 76,192,255, 35 
330 DATA 169, 13, 32,195,255,169, 15, 76,195,255,162, 48 
340 DATA 56,233, 10,144, 3,232,176,249,105, 58, 96, 13 
350 DATA 68, 73, 83, 75, 45, 77, 79, 78, 73, 84, 79, 82 
360 DATA 32, 86, 49, 46, 48,152, 56,233, 4,168, 32,132 
370 DATA 26,169, 18, 32,210*255,162, 4,185, 0, 29, 41 
380 DATA 127,201, 32,176, 4,169, 46,208, 3,185, 0, 29 
390 DATA 32,210,255,169, 0,133,212,200,202,208,229,169 
400 DATA 146, 76,210,255,173, 1, 2,208, 6,204, 4, 2 
410 DATA 176, 1, 96,104,104, 76, 47, 26, 32,135, 26,169 
420 DATA 58,162, 62, 76, 7, 27 

430 IF S <> 39496 THEN PRINT "ERROR IN DATA i!" : END 
440 SYS 6690 
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Chapter 5: The Larger CBM Disks 



5.1 IEEE-Bus and Serial Bus 

Standard Commodore 64's and VIC 20's have a serial bus over 
which they communicate with peripheral devices such as the 
VIC 1541 disk drive as well as printers and plotters. 

The principle of the bus makes it possible to chain 
peripherals. Each device has its own device address over 
which one can communicate with it. The standard address of 
the disk is 8, a printer is usually 4. The device address is 
identical to the primary address in the OPEN command. For 
instance, 

OPEN 1,4 

opens a channel to the printer. In order to open several 
disk files at once, another address, the secondary address, 
serves to distinguish them. The disk has 16 secondary 
addresses at its disposal, from to 15. Three secondary 
addresses are reserved, while the other 13 can be freely 
used: 

Secondary address is used for loading programs. 

Secondary address 1 is used for saving programs. 

Secondary address 15 is the command and error channel. 

The secondary addresses from 2 to 14 can be used for opening 
files as desired. 

The transfer of information between the Commodore 64 and the 
VIC 1541 occurs serially over this bus. Serial means that 
the the data is sent a bit at a time over just one wire. 
Data within the computer arid disk drive are stored and 
manipulated in 8 bit groups called bytes. When a byte is 
sent serially, each individual bit must be sent over the 
data line. In order that the sender and receiver can stay in 
step, a so-called 'handshake' line is needed. If we look at 
the pin-out of the serial bus, we find 6 wires: 

Pin Function 

1 SRO IN 

2 ground 

3 ATN 

4 CLCK 

5 DATA 

6 RESET 

If the computer wants to send data to the disk drive, the 
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ATN (attention) line is set. When this signal is high, all 
peripherals on the bus stop their work and read the next 
byte. The data is sent bit-wise over the DATA line. So that 
the receivers know when the next bit comes, a signal is also 
sent along the CLCK (clock) line. This transmitted byte is 
the device address. If this value does not correspond with 
the device address of a receiving peripheral, the rest of 
the data is ignored, if, however, the device is addressed, a 
secondary address may be transmitted. Along with the device 
address (0 to 31), the device is informed by means of the 
other three bits whether it is supposed to receive data 
(LISTEN) or send data (TALK). Following this, data is sent 
from the computer or from the addressed device. 

The RESET line resets all attached devices when the computer 
is turned on. Over the SRO IN (service request) line, 
peripheral devices can inform the bus controller (in our 
case, the computer), if data is ready, for example. However, 
this line is not checked by the control system in the 
Commodore computers. 

If one wants to attach several disk drives to the same 
computer, each must have a different peripheral address. If 
this is done only occasionally, the program DISK ADDR CHANGE 
can be used, as described in section 4.2.3. The new address 
(9 for example), remains only until the device is turned 
off. If the change should be permanent, it can be changed 
with DIP switches in the drive. 

The principle of transfer of data over the IEEE 488 bus is 
similar to the serial bus function. The important difference 
is that the data is transmitted over 8 data lines in 
parallel, not serial, in addition, more handshake lines are 
needed, so the IEEE bus requires a 24-line cable. The main 
advantage of the IEEE 488 bus is its ability to transmit a 
byte at a time, resulting in a higher rate of transfer. 
Measurements indicate that the IEEE-bus is about 5 times 
faster than the serial bus: 1.8 Kbyte/second vs. 0.4 
Kbyte/second. Loading a 10K program with the VIC 1541 takes 
about 25 seconds; on the identical 2031, it takes less than 
6. This reason alone is enough to warrant outfitting your 
computer with an IEEE bus. 

At the same time, it is possible to use all the other 
peripherals that the large CBM computers can access. 
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5.2 Comparison of all CBM Disk Drives 

In the following table you find the technical data of all 
CBM disk drives compared. 



The Technical Data 


of all 


Commodore 


Disk 


Drives 




Model 


1541 


2031 


4040 


8050 


8250 


• 

DOS version(s) 


2.6 


2.6 


2.1/ 


2.5/ 


2.7 








2.7 


2.7 




Drives 


1 


1 


2 


2 


2 


Heads per drive 


1 


1 


1 


1 


2 


Storage capacity 


170 K 


170 K 


340 K 


1.05 M 


2.12 M 


Sequential files 


168 K 


168 K 


168 K 


521 K 


1.05 M 


Relative files 


167 K 


167 K 


167 K 


183 K/ 


1 ,04 M 










518 K 




Buffer storage (KB) 


2 


2 


4 


4 


4 


Tracks 


35 


35 


35 


77 


77 


Sectors per track 


17-21 


17-21 


17-21 


23-29 


23-29 


Bytes per block 


256 


256 


256 


256 


256 


Free blocks 


664 


664 


1328 


4104 


8266 


Directory and BAM 


18 


18 


18 


38/39 


38/39 


(track) 












Directory entries 


144 


144 


144 


224 


224 


Transfer rate (KB/s) 










internal 


40 


40 


40 


40 


40 


over ser ./IEEE bus 


0.4 


1.8 


1.8 


1.8 


1.8 


Access time (ms) 












Track to track 


30 


30 


30 


5 


5 


Average time 


360 


360 


360 


125 


125 


Revolutions/minute 


300 


300 


300 


300 


300 



Overview of the "large" CBM drives 

The VIC 1541 disk drive has the smallest storage capacity of 
the CBM disks, but it is also the only drive that can be 
connected directly to the Commodore 64 and VIC 20 over the 
serial bus. 

The functions, construction, and operation are identical to 
those of the CBM 2031 drive. The only difference from the 
VIC 1541 is the parallel IEEE bus instead of the serial bus. 
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This results in an increase in the transfer rate to the 
computer of a factor of 5. To connect a Commodore 64 or VIC 
20, one needs an IEEE interface, as with all other CBM 
drives. The storage format of the 2031 is compatible to the 
1541; both have 170K per disk. Diskettes can be written with 
one device and read with the other. This is true for the 
next drive in the line, the CBM 4040. The 4040 is a double 
drive with 170K per drive. 

The advantage of a double drive lies not only in the 
increased storage capacity, but also in the ability to 
transfer data from drive to drive. It is possible to copy 
complete programs and files using the existing 1541 command. 

OPEN 1,8,15, "C1:TEST=0:TEST" or 

COPY "TEST", DO TO "TEST",D1 

copies the file TEST from drive to drive 1 with the same 
name. In this manner one can concatenate several files on 
different drives. The most important capability of double 
drives is the ability to duplicate entire diskettes. This 
is accomplished by a command from the computer; the drive 
automatically formats the disk and then makes a track ty 
track copy from one drive to the other. The command to do 
this is worded: 

OPEN 1,8,15, "D1=0" or 

BACKUP DO TO Dl 

The process takes less than 3 minutes on the 4040; during 
this time the computer may be used since the disk drive 
performs the entire operation by itself. 

The two other CBM drives, the CBM 8050 and the CBM 8250 
operate in double density (77 tracks). Disks written with 
the 1541 or 4040 are not compatible with the 8050/8250. 
Programs and data can be copied with the COPY/ALL program, 
which transfers from one format to another. This is the 
reason these drives have greater storage capacity; 1 MB for 
the 8050 and 2 MB for the 8250. The doubled capacity of the 
8250 comes about because both sides of the disk are used 
(double-sided); it has two reads/write heads per drive. In 
order to be able to use the whole capacity for relative 
files (see section 3.4), a so-called 'super side-sector' was 
introduced, which contains pointers to 127 groups of 6 side- 
sector blocks each. Through this, a relative file can 
(theoretically) hold 23 MB of data. These drives can be 
connected to a Commodore 64 or VIC 20 over an IEEE bus, so 
that these computers can also access several megabytes. 

An additional advantage of the large CBM drives is their 
larger buffer storage. It is possible to have more files 
open simultaneously than on the VIC 1541. Op to 5 sequential 
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files or 3 relative files may be open at any one time, as 
well as combinations of the two, of course. 

With the 8050/8250 format, tracks 38 and 39 are used for the 
BAM and directory. The disk name and format marker are in 
track 39 sector 0. 



>:00 26 00 43 00 00 00 43 42 &.C...CB 

>:08 4E 20 38 30 35 30 AO AO M 8050 

>:10 AO AO AO AO AO AO AO AO 

>:18 30 31 AO 32 43 AO AO AO 01 2C 



The track/sector pointer to the first BAM block (track 38 
sector 0) is in bytes and 1. Byte 2 contains the format 
marker 'C. Bytes 3 through 5 are unused. The disk name is 
in 6 to 21, filled with shifted spaces, in our case CBM 
8050. Bytes 24 and 25 contain the id '01', while bytes 26 
and 27 contain the DOS format 2C. 

The BAM no longer occupies just one block, but is dispersed 
over track 38; sectors and 3 are used in the 8050, the 
8250 used sectors 6 and 9 in addition. Because more sectors 
are use per track, the BAM entry for each track has been 
enlarged to 5 bytes. The first byte still contains the 
number of free sectors per track and the following bytes 
contain the bit model of the free and allocated sectors (0 = 
sector allocated, 1 = sector free). Here we have the 
contents of track 38 sector 



> 


:00 


26 


03 


43 


00 


01 


33 


ID 


FF 


> 


08 


FF 


FF 


IF 


ID 


FF 


FF 


FF 


IF 


> 


!l0 


ID 


FF 


FF 


FF 


IF 


ID 


FF 


FF 


> 


:18 


FF 


IF 


ID 


FF 


FF 


FF 


IF 


ID 


> 


:20 


FF 


FF 


FF 


IF 


ID 


FF 


FF 


FF 


> 


:28 


IF 


ID 


FF 


FF 


FF 


IF 


ID 


FF 


> 


:30 


FF 


FF 


IF 


ID 


FF 


FF 


FF 


IF 


> 


:38 


ID 


FF 


FF 


FF 


IF 


ID 


FF 


FF 


> 


:40 


FF 


IF 


ID 


FF 


FF 


FF 


IF 


ID 


> 


48 


FF 


FF 


FF 


IF 


ID 


FF 


FF 


FF 


> 


50 


IF 


ID 


FF 


FF 


FF 


IF 


ID 


FF 


> 


58 


FF 


FF 


IF 


ID 


FF 


FF 


FF 


IF 


> 


:60 


ID 


FF 


FF 


FF 


IF 


ID 


FF 


FF 


> 


68 


FF 


IF 


ID 


FF 


FF 


FF 


IF 


ID 


> 


70 


FF 


FF 


FF 


IF 


ID 


FF 


FF 


FF 


> 


78 


IF 


ID 


FF 


FF 


FF 


IF 


ID 


FF 


> 


80 


FF 


FF 


IF 


ID 


FF 


FF 


FF 


IF 


> 


88 


ID 


FF 


FF 


FF 


IF 


ID 


FF 


FF 


> 


90 


FF 


IF 


ID 


FF 


FF 


FF 


IF 


ID 


> 


98 


FF 


FF 


FF 


IF 


ID 


FF 


FF 


FF 


> 


AO 


IF 


ID 


FF 


FF 


FF 


IF 


ID 


FF 


> 


A8 


FF 


FF 


IF 


18 


FC 


F3 


EF 


IF 


> 


B0 


00 


00 


00 


00 


00 


00 


00 


00 


> 


B8 


00 


00 


00 


00 


00 


00 


00 


OF 


> 


CO 


F4 


93 


46 


1A 


18 


6C 


FB 


FF 


> 


C8 


IF 


00 


00 


00 


00 


00 


00 


00 
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>:D0 00 00 00 00 00 00 00 00 

>:D8 05 00 00 4D 04 IB FF FF 

>:E0 FF 07 IB FF FF FF 07 IB 

>:E8 FF FF FF 07 IB FF FF FF 

>:F0 07 IB FF FF FF 07 IB FF 

>:F8 FF FF 07 IB FF FF FF 07 



Bytes and 1 point to the next BAM block, track 38 sector 
3. Byte 2 contains the format marker 'C again. The track 
numbers belonging to this BAM section are in bytes 4 and 5; 
here tracks 1 through 51. At position 6 we find the 5 byte 
entry for each track. The next BAM block is constructed 
similarly. The last BAM block always points to the first 
directory block: track 39 sector 1. 

Four BAM blocks are needed for the 8250: track 38 sector 
contains the tracks 1 to 51, track 38 sector 3 contains 52 
to 100, track 38 sector 6 contains track 101 through 150 and 
track 38 sector 9 pertains to tracks 151 to 154. 

The directory track, track 39, contains 28 free blocks; up 
to 28*8=224 directory entries can be stored, in contrast to 
144 for the 1541/4040. The construction of the directory is 
alike for all formats. The following table illustrates the 
track/sector layout: 



1541 / 4040 



8050 / 8250 



Tracks 



1-17 
18- 24 
25- 30 
31- 35 



0-20 
0-18 
0-17 
0-16 



1 
40 
54 
65 



- 39 

- 53 

- 64 

- 77 
8250 
-116 
-130 
-141 
-154 



- 28 
0-26 
0-24 
0-22 



sectors 



only 



78 
117 
131 
142 



: - 28 

: - 26 

: - 24 

: - 22 



Blocks 
Free blocks 



683 
664 



2083 
2052 



4186 
4133 
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OTHER BOOKS AVAILABLE: 



The Anatomy of the Commodore 64 - is our insider's guide to 
your favorite computer. This book is a must for those of you 
who want to delve deep into your micro. This 300+ page book 
is full of information covering all aspects of the '64. 
Includes fully commented listing of the ROMs so you can 
investigate the mysteries of the BASIC interpreter, 
kernal and operating system. It offers numerous examples of 
machine language programming and several samples that make 
your programming sessions more enjoyable and useful. 

ISBN# 0-916439-00-3 Available now: S19.95 



The Anatomy of the 1541 Disk Drive - unravels the mysteries 
of working the the Commodore 1541 disk drive. This 320+ page 
book starts by explaining program, sequential and relative 
files. It covers the direct access commands, diskette 
structure, DOS operation and utilties. The fully commented 
ROM listings are presented for the real "hackers". Includes 
listings for several useful utilities including BACKUP, 
COPY, FILE PROTECTOR, DIRECTORY. This is the authoritive 
source for 1541 disk drive information. 

ISBNS 0-916439-01-1 Available now: $19.95 



Tricks & Tips for the Commodore 64 - presents a collection 
of easy-to-use programming techniques and hints. Chapters 
cover advanced graphics, easy data entry, enhancements for 
advanced BASIC, CP/M, connecting to the outside world and 
more. Other tips include sorting, variable dumps, and POKEs 
that do tricks. All-in-all a solid set of useful features. 

ISBN# 0-916439-03-8 Available June 29th: $19.95 



Machine Language Book of the Commodore 64 - is aimed at the 
owner who wants to progress beyond BASIC and write faster, 
more memory efficient programs in machine language. The book 
is specifically geared to the Commodore 64. Learn all of the 
6510 instructions as they apply to the "64. Access POM 
routines, I/O, extend BASIC, more. Included are listings of 
three full length programs: an ASSEMBLER; a DISASSEMBLER; 
and an amazing 6510 SIMULATOR so the reader can "see"the 
operation of the '64. 

ISBN# 0-916439-02-X Available now: $14.95 
Optional program diskette: $14.95 



OTHER TITLES COMING SOON!!! 
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ULTRABJUHC-64...Add 50 

commands: graphics, 
music, TURTLE ami gams 
features .Tutorfe 1 demo plus. 
TAPE $24.95 DISK $27.95 
A8SEMBLER-M0NTT0R-64 
High speed language 
development. Eleven func- 
tion editor. Screen editing of 
source file. DISK $32.95 

MERCURE-64...Slmpl8, 
powertul (Be management 
with last design, entry 
search report capabilities. 
Tutorial. DISK $32.95 



8YHTHY-M... Sets the standard for ail ot the rest. CHARTPAK-64... Prates- 20DM PA8CAL-64...Pro- 8UPER DISK UTiUTY-64., 



Best 64-synthesizer anywhere. Samples and manual, 
CASSETTE $24.95 DISK $27.95. Also avgat^fiTeat 
companion music albums; Classical, Cfirtttmn, and 
Ragtime Sing-Along. DISK $12.95 Each. 
GRAPHICS DESJ6NER-64... » LAN = BO0X 
MsniKlnVendravrings, floor Learn ail instructions, 
plans and Illustrations etc.. A^ess ROM routines, 1/0. 
Slide pragram capability. Listings for Assembler. 
D18KS32.95 SIMULATOR, more. 

TAS-64... Full featured 200 +PAOE BOOK $14.95 
technical analysis for stock ANATOMY OF A C0MM0- 
market evaluations. Manual DQRE-64 Complete guide, 
or entire update capability FuBcommentROMSDst.de- 
thru DJNflS. Primer hard- tafled intemab. ctecrtottoiH. 
copy. Disk $84.95 300 PAGE BOOK $19.65 



quaftJv pie, tins end 
bar charts. Menu driven, m- 



DISK $42.95 

CHARTPlOT-64...Sarri8 fine 
features as CHARTPAK-64 
with high quality output to 



duces 6502 machine code Speed copy 4 ways: Total, 
~ "In- Barn, Append or Foe. Dump 

sectors. More. 



for speed. Resting pj 

BMP"" 



r mofliN se 
ttKCf.OT 



plottcis. 
DISK 



PML<4B0...PlayFutack X«EF-S4...Sort«<l BASIC 

or nine ball using hires crass-reference on screen or 

graphics. Vlc-20 required 8X printer Fast ML Sort. Add 

expander. your own tokens. 

$84.95 TAPE $14.95 DISK $17.95 DISK ONLY $17.95 



ANATOMY OF THE 1541 
DI8KDRTVE Explains se- 
quential random and pro- 
Dram files, DOS. full ROM 
fisting, sample programs. 
320 pp. book $19.95 



MASTER-64...lnde)ied files; powerful screen manag- 
ment: excellent printer generator; programmer's aid; 
BASIC 4.0 commands; machine language monitor. NO 
RUNTIME ROYALTIES. 150 pp. manual for program 
developers. Disk $84.95 



FREE CATALOG Ask for a listing of other 
Abacus Software for Com mod ore- 64 or Vlc-20 



147 Awme Paut-Dttcur 



01-788-8963 

WtH Gurmwy: Swadon: 

DATA BECKER T1AL TRADING 

Mcrowincurstr 30 PO 516 

4000 DUMrtdorf 34300 Almhult 

0211/312085 476-12304 



07-397-0808 

5*<C DEALER INQUIRIES INVITED 



AVAILABLE AT C OMPUTER STORES, OR WRITE: 

Abacus Ilia Software 

P.O. BOX 7211 GRAND RAPIDS, MICH. 49510 

For postage & handling, add S2.50 (U.S. and Canada), add $5.00 ' 
for foreign. Make payment in U.S. dollars by check, money order 
or charge card. (Michigan Residents add A°k sales tax.) 

FOR QUICK SERVICE PHONE 616-241-5510 



THE 

ANA TO MY 
OF THE 
1541 DISK DRIVE 

This in oepth guide for the Commodore 1541 disk drive 
owner unravels the mysteries of using the 1541 for pro- 
grams, sequential and relative files with plenty of 
working examples. This book includes several useful 
utilities — DISK MONITOR, FILE PRGTECTQH, 
BACKUP. MERGE and more. The Anatomy also 
discusses the internals of the Disk Operating If tu n 
with the complete fully commented ROW listings. 
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